use strict;
use warnings;

use 5.010;

my $string = q(quux);

my @patterns = map { qr/$_/i } qw( foo ba(r|z) quux );

say @patterns;

if( $string ~~ @patterns ) {
 #say q(matched);
 say qq(This matched: $&);
}
[download]