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