$c=$d=[[6,[[[a,[f,9]],3],[[b,8],[1,c]]]],[[[e,0
],7],[[4,5],2]]];@l=split/ */,unpack("B*",'Y^'
.'9]U\ycDW&oylM^sFG?c/},'
);for$i(0..$#l){if($i%8){if($l[$i]){$c=$c->[1]
}else{$c=$c->[0]}unless(ref$c){$o.=$c;$c=$d}}}
eval(pack"H*",$o)