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

eval $b;