#!/usr/bin/perl
#BrainF*** interpreter. Give filename as arguement, or
#reads from STDIN 

s''while(<d>){s/           [^\<\>\[\]\.\,\+\
-]//g     ;$a.=$_          ;}$_=$a;$,=0;@,=
();d        y/\<\          >\[\]\
+\-\.\, /zbxu_qs           k/;
s/z/\$,-- \;/g;            s/b/\$,++\;/g;s/x
/while(\$,[\$,             ]!=0){/g;s/u/}/
g;s/_   /\$,[\$,           ]++;
/g;       s/q/\$           ,[\$
,]--       ;/g;            s/s/
pridntdf"%c",\$,           [\$,
];/g;s/k/gdetc             \$,[
\$,];/g;edvad              l;';s
[\s|d]$$g;                 eval