Hi ,

This is one way to do this :

     if($_ =~ /^TEST:/){print $';}

__END__

foo
[download]