N = gets.to_i
Ss = $<.map &:chomp
ba = _a = b_ = 0
ans = 0
Ss.each{|s|
  ans += s.scan('AB').size

  f1 = s[/^B/]
  f2 = s[/A$/]
  ba += 1 if f1 && f2
  _a += 1 if !f1 && f2
  b_ += 1 if f1 && !f2
}
ans += [0, ba - 1].max
if ba > 0
  if _a > 0
    ans += 1
    _a -= 1
  end
  if b_ > 0
    ans += 1
    b_ -= 1
  end
end
ans += [_a, b_].min
p ans