perl -pi -e 's/^\s*\z//' file.txt

perl -ne 'print unless m/^\s*$/' file.txt > noblanks.txt