use strict;
use warnings;
use Regexp::Common qw(balanced);

my @streams = (
               '(aaa) (bbb (ccc( ddd) eee)) (fff)',
               '  (a) ((bc (d))  ef) h',
               '(a)',
               '(a) ',
               '(a)   (bc)',
               '',
               );

my $PATTERN = $RE{balanced}{-keep};

for my $input (@streams) {
    print qq("$input" => );
    my @pieces = ($input =~ /$PATTERN/g);
    printf qq(%s\n), join qq( ), map {qq("$_")} @pieces;
}