#!/usr/bin/perl

# It Came From the Crypt!



                                        $q=
                        q&9RM        8  ba1c
                       HtJprcG        6SJ3dk
       aQM             8  p  j         p8vsY
      i3UnT f          kcRJk9w          xW2v
       h2GVK3          YL1gNvf          YEX
        dBQdE           TIdpMu         WD9Y 
         CAvK0      BrsuKn9kXUwk     aNpj8q
         ISZgRZkUg2I8W9jJsG8Rg9yeE8LvqZR7A
         Ho PDIRVAVCgafA9MZjFb31Ea5bqr7gCg
         X    zPpgkPsHjTP8iC2TtVYE0PUR b z    
         Y    b3  EQiZrZiIm6Nc81WY  qs U g 
              7m  QzHM2VjY62II5Bg   7N e k
              kt  7 5JLD86&;$u=$q   =~ s &
              \s    &&xg&&-2;@v=    unpack
              q     &c3&,qq&i\nm       &;  
                     unshift@v,2       **
                     2*2**2*2;%l       =
                      map{chr$_}
                     reverse@v;$i
                   =2*2*2&&$q,$q
                   =$i&&8; while(
                 $i=~m& [^ *]{$q}
                &x){$y  =   substr
               (crypt(       $&,$&),
               $u,print     );print       !
                 $l{$y}      &&$y       ne 
                 "y"?$y:     $l{$y} ;$i=~
                 s+$&+ +x     }$y=~m
                &ymum    ~      
                my&