perl -F'\W+' -ane 'print join $/,@F' in1 in2 in3 in4 in5 in6 in7 >> wordlist #### perl -F'\W+' -alne '@word{@F}=(); END { print sort keys %word }' in >> wordlist