my $str =           "foo bar baz";
# will 'start' matching here ^
$str =~ s< (?: \w+ [ ] )+ \K \w+ >()x;
print '[' . $str . ']';

__output__

[foo bar ]