#!/usr/bin/perl -s # |bf; bf $file; bf -e=;
$|++;$/=$a;$_=$e||<>;%a=qw%[ while($p[$p]){
, $p[$p]=ord(getc) . print+chr$p[$p] < $p--
> $p++ + $p[$p]++ - $p[$p]-- ] }%;s/./$a{$&
};/g;eval
##</code><code>##

#!/usr/bin/perl -s # |bf; bf $file; bf -e=;
$_=($/=$e)||<>;$p=w;%a=qw%[ while($$p){ ] }
. print+chr$ , $$p=ord(getc); + ++$ - --$ <
chop > $p=w.%;$|=s/./$a{$&}\$p;/g;eval

##</code><code>##

$_.=qw(++ }while$ -- ++$ $$p=shift; --$ print$ ${)[$p%60%8].'$p+0;'while$p=ord getc;eval