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