use Term::ANSIColor qw{ :constants };
while(<>){
s/(hello)/RED . $1 . RESET/eg;
print
}