my $var;
my $date;

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

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

print $var;