use Regexp::Common;
$pars =~ /^[^()]*$RE{balanced}{-parens=>'()'}[^()]*$/