phaylon@hamlett:~/ptests> perl search_bench.pl 2>/dev/null
         Rate w_reg index
w_reg 13687/s    --  -66%
index 40145/s  193%    --
phaylon@hamlett:~/ptests>