perl -pe  'eof||y/\n/,/'