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

__END__

foo