n = gets.chomp.to_i
b_a = 0
b_x = 0
x_a = 0
default = 0
n.times do |i|
  str = gets.chomp
  if (str[0] == 'B' && str[-1] == 'A')
    b_a += 1
  elsif(str[0] == 'B')
    b_x += 1
  elsif(str[-1] == 'A')
    x_a += 1
  end
  default += str.scan('AB').length
end

if (b_a == 0)
  puts [b_x,x_a].min + default
else
  if ((b_x+x_a) > 0)
    puts b_a + [b_x,x_a].min + default
  elsif((b_x+x_a) == 0)
    puts b_x - 1 + default
  end
end