one of these days I might even submit something useful. but for now, it's just another japh. this one prints more than 4 chars though..

              #!/perl
         undef$/;m/\\2o/;&                     open;sub
                    undef                     {s;(\d{60})
                    ;$1\n                   \n;xg; s;(\d{4})
                    ;\t\t$1                \n;gx;    m;\\8a;
                    ;s;\\2i;               ;;s;0;    ;g;s;1
                    ;****;gx;              s;\\1m\\1g\\1b;#\s
         \\1f        ;;}                  while       ($x=~m/
          \\(\d)(\w)/xg)                 {$_.=          substr
            ((unpack                   "B*",$2           ),4,4)x
              $1;}&

  
         undef;;;s;\\2o\;               \\5i\\2o        \\5i\\1n
         ;;;       foreach               (split          /\n/){
        print       ;print               "\n";m;         \\2o;;
        select       undef                ,undef,          undef
        ,0.05;      }sub                   open{s;\\4i\\1o;;;open
        $_,$0;$x=<$_>;                      s;\\1n          \\6h
        \\7i;;;close                        $_;$_            ="";
        }s;\\2o                               \\xo           \\a0
        \\6i;                                 exit           \\oo;
        ;;s;                                   undef           ///
        end;                                   \\\\            ///;
        ;;;
[download]

Should have formatted it nicer, but .. I got other things to do :)
feel free to hack it up & comment..