#!perl -p
s/([^aeiou]*)(.+)/$2.($1||'y').ay/e