perl -e '$a = "1,2,---0---,3,4";@f=split ",",$a;map { print $_."\n"}
 @f'