N = gets.chomp
ans = 0
ab=0
bbgn=0
aend=0
ba=0
(N.to_i).times{|i|
  str=gets.chomp
  ab += 1 if str.match('.*AB.*')
  bbgn += 1 if str.match('^B.*[^A]$')
  aend += 1 if str.match('^[^B].*A$')
  ba += 1 if str.match('^B.*A$')
}
ans += ab
ans += [bbgn, aend].min if ba == 0
ans += [bbgn, aend].min + ba + ((bbgn+aend>0)?0:-1) if ba > 0
p ans