$|++;$_="+++++[>++++++++++>++<<-]>.-
-..++.>.";tr/-+,.[]<>//cd;for$a(qw%]}
[while($p[$p]){ -$p[$p]-- +$p[$p]++
,$p[$p]=ord(getc) .print(chr($p[$p]))
<$p-- >$p++%){s/\Q${\ substr$a,"foo",
$|}/${\substr$a,$|};/g}eval