Help for this page

Select Code to Download

Select or download this

foreach $line (@array) {
    foreach $pat (@pattern) {
        if ($line =~ m/$pat/) {
...
        }
    }
}