>perl -wMstrict -le
"my $regex = qr'(?:\[.*?\])';
 print $regex;
"
(?-xism:(?:\[.*?\]))