$wort =~ s/(?<=[aeiou])k(?=r[pbtdkg])/g/ig