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