N = gets.to_i
x = y = z = t = 0
N.times{
  s = gets.chomp
  case
  when s.match(/^B.*A$/); z += 1
  when s.match(/^B/); x += 1
  when s.match(/A$/); y += 1
  end
  t += s.scan("AB").size
}

p ([x,y].max == 0 ? z - 1 : [x,y].min + z) + t