$ perl vert2.pl
ok 1 - same results
ok 2 - same results
ok 3 - same results
            (warning: too few iterations for a reliable count)
            (warning: too few iterations for a reliable count)
            (warning: too few iterations for a reliable count)
            (warning: too few iterations for a reliable count)
          Rate   seek    buk substr  slurp
seek   0.920/s     --   -61%   -84%   -88%
buk     2.36/s   157%     --   -58%   -69%
substr  5.66/s   515%   140%     --   -26%
slurp   7.69/s   736%   226%    36%     --
1..3