*FOO = \"BAR";
print qq(\$FOO is set to "$FOO"\n);

use constant FOO => "BAR";
print qq(Constant "FOO" is set to ) . FOO . qq(\n);