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