Select Code to Download

my $string = "(foo),(bar),(baz)";
my @parts  = split m{ [)] [,] [(] }x, $string;
print "GOT: $_\n" for @parts;