in reply to Re: grep with color module of perl
in thread grep with color module of perl

yeah, test good, that's what I want, It's much concise, what I write before is so inane. 
use Term::ANSIColor qw{ :constants };
while(<>){
s/(hello)/RED . $1 . RESET/eg;
print
}

[download]

In Section Seekers of Perl Wisdom