#!usr/bin/perl

use Data::Dumper;


my $tam;
my @bin;
my $i = 0;
my @dec;

my @strings = (["0111001010111011101110010101110101000000",
	       "0010001110010010001000010101010101000000",
	       "0010001010010001000100010101010101000000",
	       "0010001010010000100010001001010101000000",
	       "0111001010111011101110001001110111001110"],
	       ["0101010100111010101011101110111001000000",
	       "0111010100100010101010001000010001000000",
	       "0101010100010010101011001100010001000000",
	       "0101001000001010101010001000010000000000",
	       "0101001000111001010011101110010001000000",
	       ]
	       );
my @a;

foreach $sent (@strings) {
@a = ();
foreach $str (@$sent) {
  @bin = ();	
  @dec = ();
  $i=0;
  $tam = length($str);
  while($tam > $i) {
    my $num = substr($str,$i,8);
    $num = reverse($num);
    push @bin, $num;
    $i = $i + 8;
  }	

  foreach (@bin) {
    my $dec_ = oct "0b$_";
    push @dec, $dec_;
  }
  push @a, [@dec];
}

#print Dumper(\@a);

print "\n";

foreach $row (@a)
{
 foreach $tmp ( @$row )
 {
   $c=8;
   until ( $c == 0 )
   {
      if( $tmp & 1==1 ) { print "X"; }
      else               { print " "; }
      $tmp>>=1;
      $c--;
   }
 }
 print "\n";
}
print "\n\n\n";
}