>c:\progs\perl561\bin\perl -le"$x=qr/,/; print for split $x, 'a,b,c'"
a
b
c