the following should work:

s/([^([]])A([^)[]])/$1Z$2/;

it replaces "A" without brackets with "Z". if there are brackets the regex does not match. thus no replacement.