regexp question

[Noah Garrett Wallach]

Okay I am having troubles finding this. in the perldoc modules.
Is there a slicker way to write the following?

        if ($line =~ /(Blah1)(.*)/) {
             $blah = $1 if $1;
             $blah2 = $2 if $2;
        }       


--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/