$c=join':',qw/42 t 83 s 0 65 78 n s 72 d 82 0 O d 82 k 0 g 65 67 j 69
82 1 ;""tnirp/;while($c){($d=@{[split//,$n]})<8?$n:$b.=$d<8?chop$c:(
$e=${[split/:/,$c]}[0])=~/^\d+/?chr$e+32:++$e;$c=$b&&$c=~/(\d+|\w):(
.*)$/x?$2:$c;$n=!$c&&$n=~/(.+")(".)/?$1.$b.$/.$2:$n}eval$n