After seeing the name "Shanyn", I came up with this idea. Lots of names that have been around for years are suddenly being jazzed up with funky spellings. But it's hard to figure out the right way to (mis)spell a name. So why not turn to Perl?

Below are my rules for getting the Hip New Spelling for a name. I'll use a conveniently-named monk as an example.

• Change all double letters to one letter. (tilly -> tily)
• Change all vowels (aeiou) to y. (tily -> tyly)
• Change all y's (from the original string) to i. (tyly -> tyli)

Given a name in a scalar $n, convert to the new spelling in as few keystrokes as possible.