Select Code to Download

#!/usr/bin/perl -w

...
                        split => \&use_split });
timethese(-100, {       regex => \&use_regex,
                        split => \&use_split });

Benchmark: running regex, split, each for at least 10 CPU seconds...
     regex: 12 wallclock secs (10.64 usr +  0.00 sys = 10.64 CPU) @ 40
+522.18/s (n=431156)
     split: 10 wallclock secs (10.02 usr +  0.00 sys = 10.02 CPU) @ 37
+290.82/s (n=373654)

Benchmark: running regex, split, each for at least 50 CPU seconds...
     regex: 68 wallclock secs (54.11 usr +  0.13 sys = 54.24 CPU) @ 40
+957.93/s (n=2221558)
     split: 56 wallclock secs (49.95 usr +  0.05 sys = 50.00 CPU) @ 38
+128.48/s (n=1906424)

Benchmark: running regex, split, each for at least 100 CPU seconds...
     regex: 136 wallclock secs (110.38 usr +  0.32 sys = 110.70 CPU) @
+ 40548.93/s (n=4488766)
     split: 112 wallclock secs (100.00 usr +  0.02 sys = 100.02 CPU) @
+ 38995.86/s (n=3900366)