$string =~ s/
  \b         # wortgrenze
  ([A-Za-z]*?)   # ev. Buchstaben bis zum ersten vorkommen
  ([A-Za-z]) \2  # des doppelbuchstabens
  ([A-Za-z]*?)   # noch ev. weitere buchstaben, egal, ob doppelt oder nicht
  \B        # bis zur naechsten wortgrenze
/($1$2$2$3)/gx;