Select Code to Download

Benchmark: running bare, grt, st for at least 3 CPU seconds...
      bare:  6 wallclock secs ( 3.08 usr +  0.01 sys =  3.09 CPU) @ 12
+79584.47/s (n=3953916)
...
grt  1118146/s   --  -2% -13%
st   1146781/s   3%   -- -10%
bare 1279584/s  14%  12%   --

#!/usr/bin/perl -w

...
        my @sorted = sort { ($a =~ tr/eE/eE/) <=> ($b =~ tr/eE/eE/) } 
+@words;
    }
});

This is perl, v5.8.0 built for i686-linux