Select Code to Download

$a=q-q=a$

q=a$

...

no unsolicted commercial email, ok!

$b=59;
while('64aa22632f626f63913d8f3199583a6571c82d227fe107420' =~ /(..)/g)
...
  $b += -100 + hex $1;
  print((split(//,$a))[$b]);
}