$a = "VAR_A";
$b = qq[
	package Nowhere; 
	local ( $/, $_, $@, $0, $a, $b ); ## etc.
	print "VAR_B (\$a)\n";
];

eval $b;