use strict; 
use warnings;
use Benchmark 'cmpthese';
cmpthese( -2, {
holli => sub {
    $_ = "fox comes and fox goes into forest";
    s/(fox.+)?(fox.+?forest)/${1}the $2/;
},
Roy => sub {
    $_ = "fox comes and fox goes into forest";
    s/(?=fox(?:(?!fox).)*forest)/the /;
},
ikegami => sub {
    $_ = "fox comes and fox goes into forest";
    s/(fox(?:(?!fox).)*forest)/the $1/;
},
});