Pattern matching line by line

[bzzt]

I'm trying to match a patern in a string but I want to do it a line at a
time. Is there an easier way than this :
while ($a =~ m/(.+?)\n/g ) {
   if ($1 =~ /whatever/g) {
    print "$1";
   }



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>