Contar substrings de A a X

Conte as substrings cujo primeiro caractere é A e cujo último caractere é um X que aparece depois, em uma string de letras maiúsculas do inglês. Cada par de índices A-X é contado uma vez.