Select Code to Download

my @letters = qw(d u n s c a e y t);
open(D,"/usr/dict/words") or die $!;
...
uneasy
unsteady
[SNIP]

#        1         2         3         4         5         6         7
#234567890123456789012345678901234567890123456789012345678901234567890
+123456
...
@_=sort@_;$"='?';grep{(join'',sort split//)=~/^$\@_?$/}<D>
# stealing a bit from gbarr
@_=sort@_;$"='?';grep{(join'',sort/./g)=~/^@_?$/}<D>