perl -0pe 's/\n(?!$)/,/g'