my $str = 'A b and A and c and A';
warn $str;
$str =~ s/A/a/i for  1,2,3; 
die $str;
__END__
A b and A and c and A at - line 3.
a b and A and c and A at - line 5.