prompt> perl
$foo = "cheese";
$bar = 'stuff/$foo.txt';
print "Bar is [$bar]\n";
^D
Bar is [stuff/$foo.txt]