$a='for(-1866454,428928,-1564854,-6065153,5433825,-2464854,-35537953,565347,-704566187){$s.=(length$a)**3-$_+24;while($s=~m/^([^1]\d|1\d\d).*$/){print chr$1;$s=substr$s,length$1-1}}';eval $a;