use Regexp::Parser;  # pushes itself to @Regexp::ISA
print qr/.../->nparens;