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

use strict;

my $input = join '', <>;

foreach my $code (unpack 'C*', $input)
{
   if( $code == ord('!') )
   {
      print "\n";
   }
   elsif( $code == ord('}') )
   {
      print 'X';
   }
   elsif( $code == ord('~') )
   {
      print 'XX';
   }
   elsif( $code >= ord('#') && $code <= ord('[') )
   {
      print ' ' x ($code - ord('#') + 1);
   }
   elsif( $code >= ord(']') && $code <= ord('|') )
   {
      print 'X';
      $code -= ord(']');
      for(my $bit = 0; $bit < 5; $bit++)
      {
         print (($code & (1 << $bit)) ? 'X' : ' ');
      }
   }
}