my %rules = (A => 1,B => 1,C => 0,D => 1);	
my $s = 0;
while ($F[2] =~ /(\d+)([ABCD])/g) {	
	my $n  = $1;
	my $op = $2;
	$s += $n * $rules{$op};	
}