You appear to want no interpolation of $a. This is easily done with backticks:

$a = "VAR_A";
$b = 'print \'VAR_B (\$a)\\n\'';

eval $b;
[download]