use Text::Template;

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

my $t = new Text::Template(TYPE => 'STRING', SOURCE => q(<h1>{$title}</h1>))
    or die "Couldn't construct template: $Text::Template::ERROR";

my $text = $t->fill_in(HASH => \%vars);