Dont mean to be picky, fantastic solution, just that you forgot the 's' for substitution:

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

Sam