Select Code to Download

C:\test>type junk.txt
1, 1.2, -3000, fred, "bill & ben", "there's no business like show busi
+ness", 'stuff, with, commas'

C:\test>perl -naF, -e"INIT{ $,=$/} print @F" junk.txt
1
...
  with
  commas'

C:\test>perl -ne "my @a; eval qq[\@a = ($_);];print $_, $/ for @a" jun
+k.txt
1
...
bill & ben
there's no business like show business
stuff, with, commas