Select Code to Download

my $str = 'foo,bar,moo,cow';
my @value = $str =~ m/(\w+)\,?/g;
...

@value = split(',',$str);
print "@value\n"

my $str  = 'a,b,c:d,e,f:g,h,i';
my @part = split(':',$str);
...
   my @subpart = split(',',$part);
   print "@subpart\n";
}

print $_,$/ for map split(',',$_), split(':', $str);