$string =~ s/(\w+)(.*)\b\1/$1 $2/sig;