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

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