n=gets.to_i
ss=$<.map &:chomp

a=b=ab=c=0
ss.map{|s|
	c+=s.scan('AB').size
	if s[0]=='B'&&s[-1]=='A'
		ab+=1
	elsif s[0]=='B'
		b+=1
	elsif s[-1]=='A'
		a+=1
	end
}

if a==0&&b==0
	p c+ab-1
elsif a==0||b==0
	p c+ab
else
	p c+[b,a].min+ab
end