$str =~ s/(\w+\W+\w+\W+)\w+/$1/;