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

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

##</code><code>##

my $str  = 'a,b,c:d,e,f:g,h,i';
my @part = split(':',$str);

foreach my $part (@part) {
   my @subpart = split(',',$part);
   print "@subpart\n";
}

##</code><code>##

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