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

C:\test>