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