Nice. Here is my attempt:

s/([^aeiou_]+|)(\w*)(\s?)/$2&&$2.($1?$1:'y').'ay '/ige
[download]

Beware of bugs in the above code; I have only proved it correct, not tried it.
-- March 22, 1977, Donald E. Knuth