$re1 = qr/.../;
$re2 = qr/.../;
...
$reN = qr/.../;

@str = ('some','list','of','strings');

foreach my $str (@str) {
   $str =~ /$re1/;
   $str =~ /$re2/;
   ...
   $str =~ /$reN/;
}