perl -lpe '$\=!eof&&","'