my @regexps = (
   qr/pattern1/,
   qr/pattern2/,
);

for my $s (@strings) {
   for $re (@regexps) {
      something($s =~ /$re/);
   }
}