open T,$ARGV[0];for(<T>){$_=lc;y/[a-z]/ /cs;push@l,split}close; @l=sort(split/:/,join"\n:",grep(!$s{$_}++,@l));open T,">dict"; print T for@l;close [download]
In reply to dictionary maker by ov3rm4n