use Regexp::Common qw/balanced/;
say $RE{balanced}{-parens=>'()'} ;