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

eval $b;