perl -ni.bak -e 'print if /\S/' file1 file2 ...