use strict;
my ($p,@p)=(0);
$_='>+++++++++[<++++++++>-]<++.>++++++[<++++++++>-]<-----.--.+.>++++++
+++[<---------->-]<----.>+++++++++[<+++++++>-]<++.>++++[<+++>-]<+.+.++
++++.>++++[<--->-]<.---.>++++[<+++>-]<+.[-]>++++++++[<++++>-]<.>++++++
++[<+++++++>-]<-.>+++++++[<+++>-]<.+++++++++++++.------.[-]>++++++[<++
+++++>-]<----.>++++++[<+++++++>-]<--.>++++++[<++++>-]<+.++.++++++++.>+
++[<--->-]<.+++++++++++++.[-]++++++++++.';
s/./+{qw(> $p++ < $p-- + _++ - _-- . print+chr_ , _=ord+getc [ while(_
+){ ] })}->{$&}.";"/eg;s/_/\$p[\$p]/g;eval;
[download]

I think its a little shorter ans a litle simpler!