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