cat file | perl -e "while (<>) { push @a; } ; print join(',',@a);"