@regexps = map qr/$_/, qw( foo bar baz );   # All I did was add the qr//.
@strings = qw( abc def ghi );
for $string (@strings) {
   for $regexp (@regexps) {
      $string =~ /$regexp/
   }
}