{
        my $notvowel=qr/[^aeiou_]/i;

        sub igpay_atinlay {
                local $_=shift;
                s[(\w+)] {
                        local $_=$1;
                        s/^($notvowel+)(.*)/$2$1ay/
                                or
                                s/$/yay/;
                        $_;
                        }ge;
                $_;
        }
}