Select Code to Download

s/\b(qu|[^\W0-9_aeiou]+)?(\w+)/$1?"$2\0$1ay":"$2\0ay"/egi;

package PigLatin;

...
}

1;

use PigLatin;
$plain = "Practical Extraction and Report Language";
$funny = to PigLatin $plain;
$reg   = from PigLatin $funny;