s/(two )(?!.*two )//

##</code><code>##

$string = "one two three two four two";

##</code><code>##

$string =~ s/two\s*(?!.*two)//