my @list = (
  qr/pattern1/,
  qr/pattern2/,
  qr/pattern3/,
  qr{patter/patter not},
);

for my $line (@list ) {
  if ( $string =~ $line ) { print "match\n"; }
}