perl -n -e "print if //" infile>outfile