++hv.

Doh!

Here's the corrections as suggested (suggestions as corrected?) by the excellent Mr. hv.

$_ = shift;
s/([aeiouy])/("ub"^$1^lc$1).lc$1/gie;
s/^\s+//;
print ucfirst;
[download]

Thubanks, Hubugubo!

Cē