1 2 3
my $s = ',-_one,two-three_four'; my @parts = split(/[,\-_]/, $s); print join("\n", @parts) . "\n";
1 2 3 4 5 6 7
one two three four