#!perl -p0
y/ \n//d;s%%$x=$s++,"
"if$x--<0%eg