Select Code to Download

$ perl -w 666965.pl
Benchmark: running substr, vec for at least 60 CPU seconds...
...
       s/iter    vec substr
vec      1.86     --    -7%
substr   1.73     7%     --

Benchmark: running substr, vec for at least 60 CPU seconds...
    substr: 62 wallclock secs (61.69 usr +  0.05 sys = 61.74 CPU) @  0
+.44/s (n=27)
...
       s/iter    vec substr
vec      2.54     --   -10%
substr   2.29    11%     --