perl -F'\W+' -alne '@word{@F}=(); END { print sort keys %word }' in >> wordlist