#!/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;
Top Answers