use Template;
my $template = Template->new();

my $my_template_string = 'bar [% var1 %] foo foo [% var2 %] bar bar BAAAR!';
my $vars = {var1=>"Guybrush", var2=>"Purcell"};

my $string;
$template->process(\$my_template_string, $vars, \$string);