perl -l -n -e 'BEGIN{open (OUT,/path/to/file || die } print if /^.*\w{2,}.*$/gm; END {close (OUT); }'