n = gets.to_i
ans = 0
a = b = c = 0
n.times do
    s = gets.chomp
    if s[0] == "B" && s[-1] == "A"
        c += 1
    elsif s[0] == "B"
        b += 1
    elsif s[-1] == "A"
        a += 1
    end
    (s.size-1).times do |i|
        ans += 1 if s[i,2] == "AB"
    end
end
if c > 0
    if a > 0
        ans += c
        a -= 1
        if b > 0
            ans += 1
            b -= 1
        end
        ans += [a,b].min
    else
        if b > 0
            ans += c
        else
            ans += c-1
        end
    end
else
    ans += [a,b].min
end
puts ans