program main
  implicit none
  integer :: i, j, n, lt, cnt = 0, a = 0, b = 0, ab = 0
  character*10 :: s

  read *, n
  do i = 1, n
    read *, s
    lt = len_trim(s)
    if (s(1:1) == 'B') b = b + 1
    if (s(lt:lt) == 'A') a = a + 1
    do j = 2, lt
      if (s(j: j+1) == 'AB') cnt = cnt + 1
    end do
  end do
  print '(i0)', cnt+min(a, b)

end program