local n = io.read("*n", "*l")
local cnt = 0
local w_a , w_b, w_ab = 0, 0, 0
for i = 1, n do
  local ss = io.read()
  for p in ss:gmatch("AB") do
    cnt = cnt + 1
  end
  ss = ss:gsub("AB", "")
  local a, b = false, false
  if 0 < #ss then
    if ss:sub(1, 1) == "B" then
      b = true
    end
    if ss:sub(#ss, #ss) == "A" then
      a = true
    end
    if a and b then w_ab = w_ab + 1
    elseif a then w_a = w_a + 1
    elseif b then w_b = w_b + 1
    end
  end
end
if 0 < w_a or 0 < w_b then
  print(cnt + w_ab + math.min(w_a, w_b))
else
  print(cnt + math.max(0, w_ab - 1))
end
