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') .and. (s(lt:lt) == 'A')) a = a + 1
    if ((s(1:1) == 'B') .and. (s(lt:lt) /= 'A')) b = b + 1
    if ((s(1:1) == 'B') .and. (s(lt:lt) == 'A')) ab = ab + 1
    do j = 1, lt-1
      if (s(j: j+1) == 'AB') cnt = cnt + 1
    end do
  end do
  if (a > b) then
    print '(i0)', cnt + b + ab
  else if (b > a) then
    print '(i0)', cnt + a + ab
  else
    print '(i0)', cnt + a + max(0, ab-1)
  end if
end program