$c=0;foreach$i(split(' ',<>)){if($i eq '='){$c--;print"$c\n"}else{$c++}}