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

##</code><code>##

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