#!/usr/bin/perl -w
# akyuu1.pl - Don Yang (uguu.org)
#
# 09/18/08

binmode STDOUT;

$buffer = "";
while($line = <>)
{
   chomp $line;
   $line =~ s/[^!-z]//gs;
   $buffer .= $line;
   $output = "";
   $limit = length($buffer) - (length($buffer) % 5);
   $i = 0;
   for(; $i < $limit; $i += 5)
   {
      ($e, $d, $c, $b, $a) = unpack "C*", substr($buffer, $i, 5);
      $x = (((($a - 33) * 90 +
               $b - 33) * 90 +
               $c - 33) * 90 +
               $d - 33) * 90 +
               $e - 33;
      $output .= pack "V", $x;
   }
   $buffer = substr($buffer, $i);
   print $output;
}

if( $buffer ne "" )
{
   $remainder = length($buffer);
   ($e, $d, $c, $b, $a) = unpack "C5", $buffer . "!!!!";
   $x = (((($a - 33) * 90 +
            $b - 33) * 90 +
            $c - 33) * 90 +
            $d - 33) * 90 +
            $e - 33;
   $output = pack "V", $x;
   for(; $remainder < 5; $remainder++)
   {
      chop $output;
   }
   print $output;
}