n = gets.to_i

cntN  = 0
cntBA = 0
cntB  = 0
cntA  = 0


n.times do
  tmp = gets.chomp.chars
  (tmp.size - 1).times do |i|
    if [tmp[i], tmp[i + 1]] == ['A', 'B']
      cntN += 1
    end
  end
  if [tmp[0], tmp[-1]] == ['B', 'A']
    cntBA += 1
  elsif tmp[0] == 'B'
    cntB += 1
  elsif tmp[-1] == 'A'
    cntA += 1
  end
end

ans = [cntBA - 1, 0].max
ans += cntN

if cntBA > 0
  if cntB > 0
    ans += 1
    cntB -= 1
  end
  if cntA > 0
    ans += 1
    cntA -= 1
  end
end

ans += [cntB, cntA].min

puts ans
