use Regexp;
my $rx = Regexp->new('pattern');
my $nparens = $rx->nparens;