n=gets.to_i
ab_count=0
b_front=0
a_tail=0
n.times do|i|
	str=gets.chomp
	ab_count+=str.scan("AB").length
	if(str[str.length-1]=="A")
		if(str[0]=="B")
			a_tail+=1
			b_front+=1
		else
			a_tail+=1
		end
	elsif(str[0]=="B")
		b_front+=1
	end
end
puts ab_count+(a_tail>b_front ? b_front : a_tail)