perl -i.bak -n -e "print if /\S/" filename