Help for this page

Select Code to Download


  1. or download this
    #!perl -l

...
}

print"$a";
  2. or download this
    #!perl -l

...
      ;}}
print"$a";#fun with
#hashes#x70,[D]x70,
  3. or download this
    #!perl -l

...
          ,8],x75,[1]);foreach$c(keys%b
         ){foreach(@{$b{$c}}){substr $a,
        hex,1,chr(hex($c));}}print"$a";##