Or even

    print "mf" if grep { $line =~ $_ } @patterns;
[download]

instead of

    foreach my $pattern (@patterns) {
        print "Match found\n" if $line =~ $pattern;
    }
[download]