Select Code to Download

Benchmark: running Regex, Substr, Unpack, each for at least 3 CPU seco
+nds...
     Regex:  2 wallclock secs ( 3.17 usr +  0.00 sys =  3.17 CPU) @ 42
+172.56/s (n=133687)
    Substr:  2 wallclock secs ( 3.12 usr +  0.00 sys =  3.12 CPU) @ 56
+391.35/s (n=175941)
    Unpack:  2 wallclock secs ( 3.16 usr +  0.00 sys =  3.16 CPU) @ 61
+831.65/s (n=195388)

#!/usr/bin/perl -w
use strict;
...
                   #    print join "\t", @result;
               },
});