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

IyEvdXNyL2Jpbi9wZXJsCiAgICAgICAgICAgICAgICAgICAgICAgICAkUE9OWT1zd2VldC4gICAKICAgICAgICAgICAgICAgICAgICAgICBhZG9yYWJsZS5saXR0bGUuIAogICAgICAgICAgICAgICAgICJcICIuemFueS5xdC5sb3ZpbmcuICAKICAgICAgICAgICAgICAgICBjdXRlLm1hZ2ljYWwuaGF4Lm5lZWQuICAKICAgICAgICAgICAgICAgICBqdXN0LmtlZXAuZnJpZW5kc2hpcC51cAogICAgICAgICAgICAgICAgLmJlYXV0aWZ1bGx5O0BhID0gc3BsaXQKICAgICAgICAgICAgICAgICAvLywkUE9OWTskYnJvbnk9dWMKICAgICAgICAgICAgICAgICAkUE9OWTtAYj0gICBzcGxpdAogICAgICAgICAgICAgICAgLy8sJGJyb255OyAgICAkbXMuPSAKICAgICAgICAgICAgICAgICRiWygwLzEpXSAgICAgLiRhWzEgXS4KICAgICRhWyg0OCldLiAgICRhWzYxXS5jaHIgICAgIChvcmQoCiAgJGFbNTldKSsyKS5pLiAkYVsoMzMrMTQpXSAuICRhWzE5XS4gCiAgdWMoJGJbMTBdKS5sYyggJGJbMzVdKS4kYVsoNys2KV0KIC4kYVsoNTIvMildLiRhWzEyXS5jaHIoMzIpLgogbGMgJGJbKDM5KV0gIC4kYVsoMCswKV0uY2hyCiAoMzIpLmNociAoICAgb3JkKCRiWzQwXSktMSkKIC5sYyggJGFbMThdKS4kYVs1Ml0uICRhWzUzXQoudWMgJGJbKDE5KV0uIGNocihvcmQoJGJbNl0KKS0yKS4kYVs1OV0gIC5vLiBsYyAkYVs0Nl0uCiRhWygyMCo0KV07ICAkdHJ1dGggLj0gJG1zOwogJHRydXRoID1+ICBzL1wgYmUvIEJlL2dpczsKICAgJHRydXRoICA9fnMvQlJPTi9Qb24vZ2lzOwogICAgICAgICAgIHByaW50ICR0cnV0aDsgbm90CiAgICAgICAgICAgJGxpZXM7ICAgICBub3QgdWM7