1 while $text =~ s/(\b(\w+)\b.*)\b\2\b\s?/$1/s;