c:\@Work\Perl\monks>perl -wMstrict -le
"my $rx = qr{ [\1] }xms;
 print $rx;
 print 'match' if qq{\cA} =~ $rx;
"
(?msx-i: [\1] )
match