Select Code to Download

$A += ('(A)' =~ m(\(A\)))[0] == ('(A)' =~ m((A)))[0];
$A += ('(A)' =~ m|\(A\)|)[0] == ('(A)' =~ m|(A)|)[0];

DB<1> $a = qr((a));     print "'$a'  "; print '(a)' =~ m|$a|
'(?-xism:(a))'  a
...
'(?-xism:\\(a\\))'  
DB<4> $a = qr|\(a\)|;   print "'$a'  "; print '(a)' =~ m|$a|
'(?-xism:\(a\))'  1