Well, it's October, and Halloween will be here soon. Maybe this is a little early, but I worked hard on this one, and it's finally done, so here it is. It should work on both Windows and *nix; I tried it on Win98 and Mandrake Linux.

It just barely fits in my DOS window, so you have to hit enter to bring back the prompt.

This is my second posting of this type of thing; any comments, suggestions, or criticism are welcome!

#!/usr/bin/perl
                                   $
                                  q=
                                 "Ju
                                stPe
                               rl";#
                              ;my@g=
                             <DATA>;
                             ;;;my$
                      h     =join''
                      ,@   g;;;;$h
                      =~  s/\s+//g;    my
                      ($a,$b,$c,$d,$  e,$
                       f)=split/:/,$h;###
                       chomp($a,$b,$c,$d,$e,$
                        f  );system($^O=~Win?CLS:
                        "clear");my@a=split//,$a;my@b
                      =split//,$b;my@c=split//,$c;;;;;
                         my@d=split//,$d;;;;;;;;;;;;;;;;
                         my@e=split//,$e;;;;;;;;;;;;;;;;;;
                         my   @f=split//,$f;;;;;;;;;;;;;;;;;
;;;                           for(@f){for(1..$_){;;;;;;;;;;;;;
  ;;;                        my$g=shift@a;$g*=10;;;;;;;;;;;;;;;
    ;;;                     $g+=shift@a;my$x=shift@c;;;;;;;;;;;;
      ;;;                   $x*=10;$x+=shift@c;;;;;;;;;;;;;;;;;;;
        ;;;                  print"",chr(32)x$g;;;;;;;;;;;;;;;;;;;
          hex   ;;            "hacker,";      ;;;;;;;;;;;;;;;;;;;;;
            print""           ,"X"x$x;};        ;;;;;;;;;;;;;;;;;;;;
              print"        \n";};another        ;;;;;;;;;;;;;;;;;;;
               print"\n\n";;;;my$g=shift@b         ;;;;;;;;;;;;;;;;;
               $g*=10;$g+=shift@b;halloween         ;;;;;;;;;;;;;;;;;
                 print""," "x$g;;while(@d){         ;;;;;;;;;;;;;;;;;
                     my$c=shift@d;$c.=shift@d         ;;;;;;;;;;;;;;;
                    print"",chr(hex("0x$c"));}         ;;;;;;;;;;;;;;
                    print"\n";$g=shift@b;booo            ;;;;;;;;;;;;
                     $g*=10;$g+=shift@b;bats               ;;;;;;;;;
                      print" "x$g;while(@e){                 ;;;;;
                       my$c=shift@e;$c.=shift@e               ;;;
                        print"",chr(       hex("0x$c"
                         ));};;<STDIN>      ;;;__DATA__
                           353433292520     18171602021504
                            04140606140     214041406150202160
                              3031  707081   815202529:1925:0202
                                    0311192  9333509141009121009101
                                    0192018   1917180819080815080804
                                     080      909291911:4A4150483A204
                                    A757       37420616E6F74686572205
                                  0756D        706B696E206861636B6 5 7
                                 221            :2848617070792048 6 1
                                                 6C6C6F7765656 E 2 1 2
                                                  9:111 1 1 1 1 1 3 3
                                                     3 2 2 2 3 3 3
                                                        2 1 1 1
[download]