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

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

C:\test>