perl -e '{ $_=<>; chomp; print; last if eof(); print ","; redo }; print $/'