Yes, splitting is the simple solution. 
sub get_groups {
    my @groups = ();
    my $level  = 0;
    my $group  = "";

    #Keep on increasing the level once you find the opening brace.
    #After coming out of loop, level should be again 0

    foreach my $val ( split //, shift ) {
        next if $val =~/\s/;
        if ( $level == 0 && !($val ~~ [ "(", ")" ]) ) { push @groups, 
+$val; next; }
        if ( $level != 0 && !($val ~~ [ "(", ")" ]) ) { $group.=$val; 
+next; }

        if ( $val eq "(" && $level==0) { $level++;$group = ""; next; }
        if ( $val eq "(" && $level!=0) { $level++;$group .= "("; next;
+ }

        if ( $val eq ")" && $level==1) {$level--;push @groups, $group;
+ $group = ""; next; }
        if ( $val eq ")" && $level!=1) {$level--;$group .= ")"; next; 
+}
    }

    print Dumper(@groups);

} ## ---------- end sub get_groups

[download]

Input: 

my $string = "A (B C D)";
get_groups($string);
$string = "A (B C D) (E F G)";
get_groups($string);

$string = "A B (C (D E) (F G)) (H I)";
$string = "(A B) M N ((C (D E)) (F G)) (Z(H I)) T R";
get_groups($string);

[download]

Output: $VAR1 = 'A'; $VAR2 = 'BCD'; $VAR1 = 'A'; $VAR2 = 'BCD'; $VAR3 = 'EFG'; $VAR1 = 'AB'; $VAR2 = 'M'; $VAR3 = 'N'; $VAR4 = '(C(DE))(FG)'; $VAR5 = 'Z(HI)'; $VAR6 = 'T'; $VAR7 = 'R';

In reply to Re: Help modifying recursive regex by gurpreetsingh13
in thread Help modifying recursive regex by beeflobill

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.