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