my $string = "one two three four";
$string =~ s/^((?:\w+\s+){2})(\w+)\s+\b/$1/;
my $word = $2;
print "$string, $word\n";

##</code><code>##

$string =~ s/((?:\w+\s+){2})/$1$word /;