n = gets.to_i
s = n.times.map { gets.chomp }

a = s.grep(/^[^B].*A$/).size
b = s.grep(/^B.*[^A]$/).size
c = s.grep(/^B.*A$/).size
d = s.map{|s| s.scan(/AB/).size}.inject(:+)

ans = d #それぞれの文字の中のABの数
if c > 0 # B..Aが一つ以上
  ans += c - 1
  ans += 1 if a > 0
  ans += 1 if b > 0
  ans += [a-1,b-1].min if a > 1 && b > 1
else
  ans += [a,b].min
end

puts ans
