perl -i -0wpe's/\A[^\n]+\n//;s/\n(?!\Z)/,/g' *