Not bad, not bad...

{
    my $cd = join '', <>;
    my $ch_ptr = 0;

    sub get_char
    {
        exit if $ch_ptr == length $cd;
        substr $cd, $ch_ptr++, 1;
    }
    sub jump_ahead
    {
        $ch_ptr = index $cd, ']', $ch_ptr
    }
    sub jump_behind
    {
        $ch_ptr = rindex $cd, '[', $ch_ptr
    }
}

my @cell;
my $cl_ptr = 0;

my %disp = (
    '+' => sub { $cell[$cl_ptr]++ },
    '-' => sub { $cell[$cl_ptr]-- },
    '.' => sub { print chr($cell[$cl_ptr]) },
    '>' => sub { $cl_ptr++ },
    '<' => sub { $cl_ptr-- },
    ',' => sub { $cell[$cl_ptr] = ord( getc() ) },
    '[' => sub { jump_ahead() if $cell[$cl_ptr] == 0 },
    ']' => sub { jump_behind() if $cell[$cl_ptr] != 0 },
);

($disp{get_char()} or sub{})->() while 1;
[download]