perl -ni -e 'print if /\S/' file.txt