added colour for perl operator