DouKaku?

perl -MLanguage::BF \
  -e 'print Language::BF->new_from_file(shift)->as_perl' t/hello.bf \
  | perl
Hello World!

use strict;
use warnings;

sub compile {
    my $source = shift;
    my $out = '';

    my $code = 'sub{no warnings;my(@t, $p, @o);';

    my %patterns = (
        '>' => sub { sprintf '$p+=%d;', length $_[0] },
        '<' => sub { sprintf '$p-=%d;', length $_[0] },
        '+' => sub { sprintf '$t[$p]+=%s;', length $_[0] },
        '-' => sub { sprintf '$t[$p]-=%d;', length $_[0] },
        '.' => sub { sprintf 'push @o,$t[$p];' },
        ',' => sub { sprintf '$t[$p] = shift;' },
        '[' => sub { 'while($t[$p]){' },
        ']' => sub { '}' },
    );
    my $re = qr/>+|<+|\++|-+|\.|,|\[|\]/;

    my $tmp = $source;
    $tmp =~ tr/<>+\-,.[]//cd;
    $tmp =~ s/$re/$patterns{substr($&, 0, 1)}->($&)/ge;

    $code .= $tmp;
    $code .= '@o;}';
}

sub main {
    my $source = do { local $/; <> };
    my $code = compile($source);

    my @out = do { eval $code }->();
    print pack('c*', @out);
}

main;

#!/usr/local/bin/perl
use strict;
use warnings;
s/(.)/do{no warnings 'syntax';my %c=qw!
< $p--;
> $p++;
+ $d[$p]++;
- $d[$p]--;
. print(chr$d[$p]);
, $d[$p]=getc;
[ while($d[$p]){
] }
!;\%c}->{$1}/egx and print for(<>);