Select Code to Download

$in = s/^\((.*)\)$/$1/;
my @splat = split(/,/, $in);
...
     last if $depth == 0;
}
my $right = join(',', @splat);