#!perl -w

use strict;

my %vars = qw(name Fred);
my $tmpl = do { local $/; <DATA> };

$tmpl =~ s/\$([a-zA-Z_]\w*)/$vars{$1}/ge;

print $tmpl;

__DATA__
This is my template.
Here is my $name