Select Code to Download

use strict;
use Benchmark;
...
}

__END__

# perl bench_regexp 100000lines.92MB.file 
Benchmark: timing 1 iterations of one_string, two_string...
...
            (warning: too few iterations for a reliable count)
two_string: 77 wallclock secs (76.13 usr +  0.59 sys = 76.72 CPU) @  0
+.01/s (n=1)
            (warning: too few iterations for a reliable count)