$x = 'the quick brown fox jumps over the lazy fox';;

print "<$1>" while $x =~ m[(......fox)]g;;
<brown fox>
< lazy fox>

print "<$1>" while $x =~ m[(......fox)(?!$)]g;;
<brown fox>