use Text::Template;
my $template = Text::Template->new(TYPE => 'STRING', SOURCE => '{$var1}');
my $templateVars = {
        'var1' => 'Hier kommt die var2: {$var2}!',
        'var2' => 'YAY',
};
print $template->fill_in(HASH => $templateVars);