仅使用一个 Perl替代正则表达式语句（s///），我们如何编写以下代码：
每个成功的比赛都只包含一串字母字符A..Z。我们需要用匹配项替换匹配字符串，该替换项将是匹配字符串中每个字符的字符索引（按字母顺序）的总和。
注意：对于A，字符索引将为1，对于B，字符索引将为2 ...，对于Z将为26。
请参见下面的示例：
success match: ABCDMNA
substitution result: 38
注意：
1 + 2 + 3 + 4 + 13 + 14 + 1 = 38;
以来
A = 1, B = 2, C = 3, D = 4, M = 13, N = 14 and A = 1.