>perl -e "print qr(a(b)c)"
(?-xism:a(b)c)
>perl -e "print qr(a\(b\)c)"
(?-xism:a(b)c)
>perl -e "print qr(a\\(b\\)c)"
(?-xism:a\\(b\\)c)