#!/usr/bin/perl
use strict;

                      my$a='my@out;while(<>){s/
                (\A|\n|[^\w-])([aeiou])?([\w\-]*(\\   \'\w
             +)?)/$1.&convert($2,$3)/ggies;push@out,$_}prin
           t("PigTalk\nV1.0\n\n",join"",@out);sub';my$b='co
         nvert{my($a,$b)=@_;if($a){return"$a$b-ay";}unless($b
   ){return}if(length$b==1){return$b}my$uc=0;if($b=~s/^(   [A-
    Z])/lc($1)/e){$uc=1};$b=~s/^([^aeiou][^aeiouy]?)//;   $a=
     $1;$b=ucfirst($b)if$uc;return"$b-${a}ay";}print;';$ a=~
      s/\s+//g;$b=~s/\s+//g;;;eval"$a $b"; __DATA__ my$a= '
    my@out;while(<>){s/(\A|\n|[^\w-])([aeiou])?([\w\-]*(
 \\\'\w+)?)/$1.&convert($2,$3)/ggies;push@out,$_}print("
  PigTalk\nV1.0\n\n",join"",@out);sub';my$b='convert{my(
  $a,$b)=@_;if($a){return"$a$b-ay";}unless($b){return}i
   f(length$b==1){return$b}my$uc=0;if($b=~s/^([A-Z])/lc
         ($1)/e){$uc=1};$b=~s/^([^aeiou][^aeiouy]?)//
            ;$a=$1;$b=ucfirst($b)if$uc;return"$b-${a}
                   ay";}pri nt;';         $a=~s /\s+//
                      g;$b  =~s/         \s+//   g;;;e
                      val"  $a $b        "; _    _DAT
                      A__     my$       a='my     @out