I certainly would love any feedback, negative or positive.

That sub's not very readable. Perhaps:

sub Get_Page_Vars {
    my ($temp_vars,$type) = @_;

    my $sth = $dbh->prepare (qq{ SELECT `name`,`value`,`add_name` FROM
+ `page_vars` WHERE `type` = ? OR `type2` = ? ORDER BY add_name,id,d})
+;
    $sth->execute($type, $type);
    while( my ($db_name,$content,$_add_name) = $sth->fetchrow_array())
+ {
        
        {
            local $_ = $content;

            my $ident_key = qr/[\w{}']+/;
            my $phash_pat = qr/[$]$ident_key/;
            
            if (/$phash_pat/) {
                s/($phash_pat)/ eval($temp_vars{$1})  /ge;
                s/($phash_pat)/ $temp_vars{eval($1)}  /ge;
                s/($phash_pat)/ eval($vars{$1})       /ge;
                s/($phash_pat)/ $vars{eval($1)}       /ge;
                s/($phash_pat)/ eval($1)              /ge;
            }
            if (/\<templ_var ($ident_key)\>/) {
                s/\<templ_var ($ident_key)\>/ eval($vars{$1})       /g
+e;
                s/\<templ_var ($ident_key)\>/ $vars{eval($1)}       /g
+e;
                s/\<templ_var ($ident_key)\>/ eval($temp_vars{$1})  /g
+e;
                s/\<templ_var ($ident_key)\>/ $temp_vars{eval($1)}  /g
+e;
                s/\<templ_var ($ident_key)\>/ eval($1)              /g
+e;
            }
            if (/{{$ident_key}}/) {
               s/{{($ident_key)}}/ eval($vars{$1}) /ge;
               s/{{($ident_key)}}/ $vars{eval($1)} /ge;
            }
            s|<br>|<br />|gi;
   
            $content = $_;
        }
        
        if ($content && ($content =~ /<code>/i && $content =~ /<\/code
+>/i)) {
            while($content =~ /<code>/i && $content =~ /<\/code>/i) {
                my ($code1,$code2,$_do_code);
                ($content,$code1) = split /<code>/, $content, 2;
                ($code2,$ocontent) = split /<\/code>/, $code1, 2;
                $_do_code = eval($code2);
                $content = $content . $_do_code . $ocontent;
            }
        }
        if ($content && ($content =~ /<syscode>/i && $content =~ /<\/s
+yscode>/i)) {
            while($content =~ /<syscode>/i && $content =~ /<\/syscode>
+/i) {
                my ($syscode1,$syscode2);
                ($content,$syscode1) = split /<syscode>/i, $content, 2
+;
                ($syscode2,$ocontent) = split /<\/syscode>/i, $syscode
+1, 2;
                eval{$syscode2};
                $content = $content . $ocontent;
            }
        }
        if ($_add_name) {
            $content = qq~<!--Start $db_name-->$content<!--End $db_nam
+e-->~;
        }
        $temp_vars{$db_name} = $content;
    }
    $sth->finish();

return(%temp_vars);
}
[download]

Less visual noise.