Select Code to Download

perl -nle"/^(.)(?!\1)(.)(?!\1|\2)(.)(?!\1|\2|\3)(.)(?!\1|\2|\3|\4)(.)\
+3(?!\1|\2|\3|\4|\5)(.)(?!\1|\2|\3|\4|\5|\6).$/ and print" <words

/^                              ## With the $, exactly 8 chars only
    (.)                         ## Any char as \1
...
    (?!\1|\2|\3|\4|\5)(.)       ## Any char as \6 except ...
    (?!\1|\2|\3|\4|\5|\6).      ## Any char except any char we've alre
+ady seen
$/x

#! perl -slw
use strict;
...
worker's
writhing
ziegfeld