Help for this page
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>
www.com | www.net | www.org
No recent polls found