#Hello World
%c=qw(> $p++ < $p-- + D=(D+1)%256 - D=(D-1)%256 [ while(D){ ] } . print+chrD , D=ord(getc));
$/=$,;$_='++++++++[>++++[>++>+++>+++>+<<<<-]>+>+>->>+[<]<-]>>.>---.+++++++..+++.>>.<-.<.+++.------.--------.';s/./$c{$&};/g;s[D]'$b[$p]'g;eval

Hello World