$string =~ s/(\w)\1/($1$1)/g; # buchstaben klammern