ТОЧНО такой же вопрос поднимался недавно. Смотри в поиске. Там было дано объяснение и подробные ответы.

#!/usr/bin/perl -w
@AB=('A1','A2','A3');
for $TXT(@AB){
    $TXT=~s/A/B/gi;
    print $TXT;}

#!/usr/bin/perl -w
$TXT="A1 A2 A3";
$TXT=~s/A/B/gi;
print $TXT;

Мимо...

... и ты, и Джозефсон. Не A1->B, A2->B, ..., а A1->B1, A2->B2,...

Всё нормально отрабатывает. Указан конкретный символ для замены. А для твоего варианта
> A1->B, A2->B, ...
так:
$TXT=~s/A\d+/B/ig;

Думаю, ты имел ввиду такой вариант:
$TXT=~tr/A/B/;
Они оба работоспособны.