perl -lne 'print if length == 15 and not /(.).*\1/' /usr/share/dict/words