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;
|
---|
In Section
Seekers of Perl Wisdom