($Q = '
binmode(STDIN);

$q = "";
while(<>)
{
   $q .= $_;
   for(; length($q) > 59; $q = substr($q, 60))
   {
      $z = "";
      foreach $x (unpack "V15", $q)
      {
         $c = $x % 90;
         $i = ($x /= 90) % 90;
         $r = ($x /= 90) % 90;
         $n = ($x /= 90) % 90;
         $o = $x / 90;
         $z .= pack "C*", $c + 33, $i + 33, $r + 33, $n + 33, $o + 33;
      }
      print "$z\n";
   }
}

$y = (4 - length($q) % 4) & 3;
$z = "";
foreach $x (unpack "V*", "$q\0\0\0")
{
   $c = $x % 90;
   $i = ($x /= 90) % 90;
   $r = ($x /= 90) % 90;
   $n = ($x /= 90) % 90;
   $o = $x / 90;
   $z .= pack "C*", $c + 33, $i + 33, $r + 33, $n + 33, $o + 33;
}
for(; $y > 0; $y--)
{
   chop $z;
}
print "$z\n";

') =~ s/[ #@`
]//g;;

eval " $Q "x 1;