Select Code to Download

I have some <brackets in <nested brackets> > and
<another group <nested once <nested twice> > >
and that's it.

#!/usr/local/bin/perl5.10.0

...

$" = "\n\t";
print "Found:\n\t@groups\n";

Found:
    <brackets in <nested brackets> >
    <another group <nested once <nested twice> > >

#!/usr/local/bin/perl5.10.0
    
...
    
    unshift @queue, map { s/^<//; s/>$//; $_ } @groups;
    }

Found:
    <brackets in <nested brackets> >
...

Found:
    <nested twice>