for my $pat (...) {
   for my $string (...) {
      ... $string =~ /$pat/ ...
   }
}