BF interpreter on perl

#!/usr/bin/perl
open F,shift;
@code=grep{/[+-\.,\[\]><]/}split'',<F>;
for(my$_=0;$_<@code;++$_){
    $cpu[$i]++if$code[$_]eq'+';
    $cpu[$i]--if$code[$_]eq'-';
    $i--if$code[$_]eq'<';
    $i++if$code[$_]eq'>';
    print chr$cpu[$i]if$code[$_]eq'.';
    $cpu[$i]=ord<STDIN>if$code[$_]eq',';
    if($code[$_]eq'['){
        if(!$cpu[$i]){
	 ++$brc;
	 while($brc){
 	        ++$_;
	 $brc++if$code[$_]eq'[';
	 $brc--if$code[$_]eq']';
	 }
        }else{
            next;
        }
    }elsif($code[$_]eq']'){
	if(!$cpu[$i]){
	 next;
	}else{
	 $brc++if$code[$_]eq']';
	 while($brc){
		--$_;
		$brc--if$code[$_]eq'[';
		$brc++if$code[$_]eq']';
	 }
	--$_;
	}
    }
}