$/=%h=qw;> $p++ < $p-- + $a[$p]++ - $a[$p]-- . print(chr$a[$p])
[ while($a[$p]){ ] };;$_=<DATA>;s:.:$h{$&};:g;eval __END__
>>++++[>++++++++<-]+++++++++++[>>+++++++++++<<-]++++++++++[>>>++++
++++++<<<-]++++++++[>>>>+++++++++<<<<-]>>>>++.<<----.--.+.<.>>---.<
------.+.+++++.>+++++++.---.<--.<.>>>++++++.<.<.>+++++++.<<.>>----.
-------.++.++++++++.------.<.<++++++++++++.<<++++++++++.