http://www.perlmonks.org?node_id=243098


in reply to regex needed

Hi ,

This is one way to do this :





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

__END__

foo

[download]


In Section Seekers of Perl Wisdom