leftB = []
rightA = []
both = []
ans = 0

N = gets.to_i
N.times do
  s = gets.chomp
  ans += s.scan(/AB/).length
  if s[0] == "B" and s[s.length - 1] == "A"
    both << s
  elsif s[0] == "B"
    leftB << s
  elsif s[s.length - 1] == "A"
    rightA << s
  end
end

if both.length > 0
  ans += both.length - 1
  if leftB.length > 0
    leftB.pop
    ans += 1
  end
  if rightA.length > 0
    rightA.pop
    ans += 1
  end
end

while leftB.length > 0 and rightA.length > 0
  leftB.pop
  rightA.pop
  ans += 1
end

puts ans