% perl -MO=Deparse -e "s{\[A\]}[s/\[B\]/C/g]g"
s[\[A\]][s/[B]/C/g]g;
-e syntax OK