perl -i -ne '/^$/ ? $i++ : do{print "\n" x $i, $_; $i=0}' file