use warnings;
use strict;
use Data::Dump;
use Regexp::Common qw/balanced/;

"(a a (a a)(a a))(b b(b)b b)" =~ /$RE{balanced}{-parens=>'()'}/;

dd $&, $';  # ("(a a (a a)(a a))", "(b b(b)b b)")