Select Code to Download

while(<>) {
    s{ \b([bcdfghjklmpqrstvwxyz]?)(\w+) }
...
       else   {$2."way"} }egix;
    print;
    }

while(<>) {
    s{ \b([bcdfghjklmpqrstvwxyz]*)([aeiou]+)(\w*) }
...
       else   {$2.$3."way"} }egix;
    print;
    }