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

##</code><code>##

C:\test>perl -naF, -e"INIT{ $,=$/} print @F" junk.txt
1
  1.2
  -3000
  fred
  "bill & ben"
  "there's no business like show business"
  'stuff
  with
  commas'


##</code><code>##

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