in reply to Re: regexp find last word
in thread regexp find last word

You should ?-quantify the first parenthesized expression, so it works for one fox as well: 
s/(fox.+)?(fox.+?forest)/${1}the $2/

[download]
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom