perl -i -ne '/^$/ or print' foo.txt