Select Code to Download

#!/usr/bin/perl -w

...

timethese(1, { by_regexp => 'regexp($log)',
               by_split => 'do_split($log)' });

Benchmark: timing 1 iterations of by_regexp, by_split...
 by_regexp:  0 secs ( 0.00 usr  0.00 sys =  0.00 cpu)
...
Use of uninitialized value at ./bench2.pl line 20.
  by_split:  0 secs ( 0.00 usr  0.00 sys =  0.00 cpu)
            (warning: too few iterations for a reliable count)