$wort =~ s/([aeiou])t\1/$1d$1/;