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