my @regexps = (
   'pattern1',
   'pattern2',
);

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