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