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