Cool. :)

A couple of little points, which -w would have told you about: "\1" is a way to refer to regexp backreferences within the regexp itself, but in the replacement part of a substitution it is preferable to refer to them as "$1". Also, ucfirst() does not modify a string in place but returns the modified form of the string, so that call does nothing: you could fix that by replacing the last two lines with print ucfirst;.

Note also that this would translate "The Angel" to "Thube ubAngubel"; assuming that "Thube Ubangel" would be preferred, you could use this trick to fix it up (not recommended for production code):

  s/([aeiouy])/("ub"^$1^lc$1).lc$1/gie;
[download]

Hugo

ubbi "Rik ce"

++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ē

Gubood Lubuck,

YubuckFuboo

The earliest place I've heard this is from the 60s albums and 70s TV cartoon series from Bill Cosby, with the character "Mushmouth." Was this an actual voice game which some kids of that era played, akin to Pig Latin, or was this just Cosby's invention?

--
[ e d @ h a l l e y . c c ]

"Ubbi Dubbi" is a voice game that the kids on a PBS show called "Zoom". The "Mushmouth" character's speech does sound similar, but I don't think they're related.

If memory serves, "Mushmouth" ended words with either a "be" or "ba" sound.

I'll have to do some research and get back to you.

Cē

Matt