my $string = "AAbfwercB(A)fjklASZaB(A)xvASABAB(A)gfdaZAA";
my @chunks = split(/B\(A\)/, $_);
$_ =~ tr/A/Z/ foreach @chunks;
$string = join 'B(A)', @chunks;