#!/usr/bin/perl -s # |bf; bf $file; bf -e=,
$|++;undef$/;$_=$e||<>;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,0,1}/${\substr$a,1}
;/g}eval;