#!/usr/bin/perl -w
# decode_template.pl - Don Yang (uguu.org)
#
# 07/08/07

use strict;

my $input = join '', <>;
foreach my $code (unpack 'C*', $input)
{
   if( $code == ord('!') )
   {
      print "\n";
   }
   elsif( $code >= ord('#') && $code <= ord('7') )
   {
      print 'X' x ($code - ord('#') + 1);
   }
   elsif( $code >= ord('8') && $code <= ord('[') )
   {
      print ' ' x ($code - ord('8') + 1);
   }
   elsif( $code >= ord('^') && $code <= ord('}') )
   {
      $code = ($code - ord('^')) * 2 + 1;
      for(my $bit = 0; $bit < 6; $bit++)
      {
         print (($code & (1 << $bit)) ? 'X' : ' ');
      }
   }
}