http://www.perlmonks.org?node_id=3588


in reply to Pig Latin

I'm assuming that you _did_ mean "starting with", not "ending with".
s{ (\w+) }{ if ($1 =~ /^[aeiou]/) { $1 . 'way'; } else { $1 . substr ($1, 0, 1) . 'ay'; } }egix;