my $mystr = "foo,bar,moo,cow";
my @values = $mystr =~ m/(\w+)\,?/g;