Perl code by skeletonkey - 3 lines

Link:

skeletonkey - Perl, pasted on Feb 18:

1
2
3

my $s = ',-_one,two-three_four';
my @parts = split(/[,\-_]/, $s);
print join("\n", @parts) . "\n";

Output:




one
two
three
four