Re^4: Perl oddities

[ihb]

in reply to Re^3: Perl oddities
in thread Perl oddities

You can do

if (my @r = $line =~ /(this).*(that).*(some).*(other)/) {
    my ($this, $that, $some, $other) = @r;
    do_it();
}

if you want the conditional expression shorter and don't want to repeat the dollar-digit vars.

ihb