@w{map { $_=lc; y/[a-z]/ /cs; split } <>}=();
print map "$_\n", sort keys %w;