Building on ChemBoy's and sauoq's brilliant work...

'scuse the double quotes.

E:\Perl\lib>perl -pe "END{print qq($. tested, $£ found)};$_ x=(leng
+th==16&&!/(.).*\1/)and$£++" <words.txt
Admiralty House
Bishop Auckland
blasting powder
cloth-measuring
cloth-spreading
dermatoglyphics
ditch sunflower
wheat-producing
633293 tested, 8 found
E:\Perl\lib>
[download]

And yes, I know my words list has some stupid "words" in it:^)