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