!/usr/bin/perl

                                     $PONY=sweet.   
                                   adorable.little. 
                             "\ ".zany.qt.loving.  
                             cute.magical.hax.need.  
                             just.keep.friendship.up
                            .beautifully;@a = split
                             //,$PONY;$brony=uc
                             $PONY;@b=   split
                            //,$brony;    $ms.= 
                            $b[(0/1)]     .$a[1 ].
                $a[(48)].   $a[61].chr     (ord(
              $a[59])+2).i. $a[(33+14)] . $a[19]. 
              uc($b[10]).lc( $b[35]).$a[(7+6)]
             .$a[(52/2)].$a[12].chr(32).
             lc $b[(39)]  .$a[(0+0)].chr
             (32).chr (   ord($b[40])-1)
             .lc( $a[18]).$a[52]. $a[53]
            .uc $b[(19)]. chr(ord($b[6]
            )-2).$a[59]  .o. lc $a[46].
            $a[(20*4)];  $truth .= $ms;
             $truth =~  s/\ be/ Be/gis;
               $truth  =~s/BRON/Pon/gis;
                       print $truth; not
                       $lies;     not uc;