$wort =~ s/(?<=[aeiou])?t(?=[aeiou])/d/ig
$wort =~ s/(?<=[aeiou])k(?=r[pbtdkg])/g/ig
View full thread Nur einen Buchstaben in Buchstabenkombination ersetzen