Here's one of the examples provided at http://www.sysarch.com/perl/golf/. Try playing this yourself, then see other solutions at [url=http://www.sysarch.com/perl/golf/example.text]http://www.sysarch.com/perl/golf/example.text

Suppose you want to find words with exactly ten non-repeating letters such as "binoculars", "fishmonger", or "paintbrush", suitable for games or simple encryption of numbers where every decimal digit is represented by a letter.

I've tried to write the shortest possible Perl program to extract such words from a wordlist and have found the following two solutions: