+while(<STDIN>)
+{
+ $line = $_;
+ chomp $line;
+ if( $line =~ s/^(\[[A-z0-9]*\]\s.*)\.\.\.\sok$/$info$1\.\.\.$ok ok/g ||
+ $line =~ s/^(\[[A-z0-9]*\]\s.*)\.\.\.\sFAIL$/$info$1\.\.\.$err FAIL/g||
+ $line =~ s/^(\[[A-z0-9]*\]\s.*)\.\.\.(.)*$/$info$1\.\.\.$2/g ||
+ $line =~ s/^(ok)$/$ok$1/ig || $line =~ s/^FAIL$/$err FAIL/g ||
+ $line =~ s/(Ran\s.*)/$info$1/g )
+ {
+ print $line.$reset."\n";
+ }
+ else
+ {
+ print $grey.$line."\n";
+ }
+}'
+fi