Help for this page

Select Code to Download


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

...
}

1;
  3. or download this
    use PigLatin;
$plain = "Practical Extraction and Report Language";
$funny = to PigLatin $plain;
$reg   = from PigLatin $funny;