use Text::Template; my %vars = ( title => "Foo Bar" ); my $t = new Text::Template(TYPE => 'STRING', SOURCE => q(

{$title}

)) or die "Couldn't construct template: $Text::Template::ERROR"; my $text = $t->fill_in(HASH => \%vars);