$d='/usr/share/dict/words';# Adjust this to point to your dictionary words file.
@a=map _ ("",split//),qw'tjsu thanore arkceh';$^X=~/n\/(....)/;splice@a,2,@_,$+;
sub _{my($f,@t)=@_;@c=('grep','-i','-e',"\"^$f".(join"",map".",@t).'$"',$d);open
_,"@c |";if(<_>){if(@t){my@l;for$i(0..$#t){my@e=@t;splice@e,$i,1;@r=_("$f$t[$i]"
,@e);for$r(@r){push@l,$r}}@l}else{$f}}else{return}};s(); $\ =pop@a;;print"@a$/";