open my $in, "<", $log or die "unable to open file '$log' - $!";
open my $out, ">", $result or die "unable to open file '$log' - $!";
while (my $line = <$in>) {
    if ($line =~ $regex) {
        print $out $line;
    }
}
close $in;
close $out;