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