my %vars = (
    title => 'Foo Bar'
);

my $template = q(<h1>$title</h1>);

$template =~ s/\$(\w+)/$vars{$1}/eg;