E:\Perl\lib>perl -pe "END{print qq($. tested, $£ found)};$_ x=(length==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>