Para los que no conozcan este 'lenguaje':
http://es.wikipedia.org/wiki/Brainfuck
#!/usr/bin/perl
# Intérprete brainfuck v1.0
# Aceitunas
use strict;
my $cadena = "++++++++++>++.>>+.---.<---.>>++.<+.++++++++.-------.<+++.>+.>+.>.";
# Cadena contiene la línea de código a ejecutar
my @puntero; # puntero a los datos almacenados
my $pospun = 0; # posición del puntero
my $posicion = 0; # posición en el array que contiene las instrucciones
my @datos = split // , $cadena; # datos ...