Select Code to Download

Select or download this

use Benchmark;

print "holli\n";
...
timethis (999999, sub { $_ = "fox comes and fox goes into forest"; s/(
+?<=fox)(.+?)(fox)/$1the $2/; });
print "Roy Jonhson\n";
timethis (999999, sub { $_ = "fox comes and fox goes into forest"; s/(
+?=fox(?:(?!.*fox).)*forest)/the /; });

Select or download this

holli
timethis 999999: 10 wallclock secs ( 9.87 usr +  0.00 sys =  9.87 CPU)
+ @ 101275.98/s (n=999999)
...
timethis 999999: 12 wallclock secs (10.41 usr +  0.01 sys = 10.42 CPU)
+ @ 95959.98/s (n=999999)
Roy Jonhson
timethis 999999: 10 wallclock secs (10.19 usr +  0.02 sys = 10.20 CPU)
+ @ 98000.69/s (n=999999)