Help for this page

Select Code to Download

Select or download this

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

print $var;