Another way of interpolating simple scalars afterwards is s///ee:

my $var;
my $date;

$var = 'date $date';  # single quotes!
$date = localtime;

$var =~ s/\$(\w+)/$$1/gee;

print $var;
[download]