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