perl -ne '/^(?!.*(.)\1)(?=.*(.).+\2)(?=.*(?!\2)(.).+\3)\w{12}$/ and print' /usr/share/dict/words