$_ = "fox comes and fox goes into forest";
s/(.*)(fox)/$1the $2/;
print;