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