perl -ne 'print if /\S/' input.txt