Select Code to Download

my $foo = "foo,bar,moo,cow";
$foo =~ /(?:([^,]+),)+/;

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