perl -i.bak -ne 'print if /\S/' your_file.txt