#!/usr/bin/perl -w            # cooking with perl
use strict;

{$_.=<DATA>;redo if !eof(DATA); }s/[ \n3A-Z]//g;s
/000/032/g; my @z = split //; for (my $i=0;$i<24;
$i++) { $_[@_] = "$z[@_*3]$z[@_*3+1]$z[@_*3+2]" }
my $z; map $z .= chr($_),@_; $_ = $z."\n"; print;

__END__

    303    X373X343
    X313  X313X373X31
    3X313X353X313X313X3
    63X303X303X   303X3
   03X393X373X3    13X3
 1 3X 303X313X3  1 3X31
  3X  313X313X36  3X31
        3X303X343
        X313X303X313X313X313X343X303X303X303
        X303X383X303X313X303X313X313X313X343X
         313X303X383X303X303X303X303X373X323X30
          3X393X373X303X393X393X313X303X373X313X3
           03X313X313X313X343X33X33X33X33X33X3
             3X33X33X33X33X33X33X33X33X33X33X
              X33X33X33X33X33X33X33X33X33X33
                X33X33X33X33X33X 33X33X33X3
                 3X33X3           3X33X33X33
                  X33X            33X   33X33
                   X33              X33    X33X
                    33               X3      3X
                    33               X3      3X
                    33              X3       3X
                    33             X3        3X
                  33X            33X        33