my %TmplVariablen = (
    User  => "Niemand",
    Land  => "Takatukaland",
);

my &#36Text;
open (LISTE, "< &#36seite") or die "Datei &#36seite konnte nicht geoeffnet werden: &#36!";
{
    local &#36/;
    &#36Text = <LISTE>;
}
close LISTE;

# Hier werden die Variablen ersetzt
&#36Text =~ s/%%(\w+)%%/exists &#36TmplVariablen{&#361} ? &#36TmplVariablen{&#36_} : ""/eg;

print "Content-type: text/html\n\n";
print &#36Text;