Same here, it worked on both of: 5.12.2 on fedora 14 and 5.10.1 on another linux

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]