$wort =~ s/(?<=[aeiou])t(?=[aeiou])/d/