Yeah, I know it's a bit late for a 2002-TIMTOWTDI, but I re-read this thread and i sort of got inspired by the critter-like code ($_+=$_-- etc), and created this late entry:

$|++;$_="+++++[>++++++++++>++<<-]>.-
-..++.>.";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
[download]

{grin}

brainf*ck++

++ vs lbh qrpbqrq guvf hfvat n ge va Crey :)
Nabgure bar vs lbh qvq fb jvgubhg ernqvat n znahny svefg.
-- vs lbh hfrq OFQ pnrfne ;)
    - Whreq