Ok, I have a script, in which I read from a text file, such as this:

open(FILE, "/home/user/template/$filename.txt");
     while (<FILE>)
          {
               s/(\$[a-zA-Z0-9\{\'\}_]+)/ eval ($1) /ge;
               $template{'content'} .= $_;   
          }
     close(FILE);
[download]

This reads every $string in the text file, and replaces it with the perl value of $string since it normally would not, because of it being in a text file and not read as a string by Perl.
It then puts that "value" into a hash.

That is my understanding, as limited as it is.

Here is my question.

What if that is in a database, and instead of it having $string it has {{string}} and I normally do a s/{{string}}/$string/g;

I'm getting a error doing it that way in a subroutine, because not every database value has the same {{stringname}} so I get a lot of "useless switch" errors.

So how do I get the database record to be in a value of <FILE> so that I can do it like my other one, except like this:

while(my ($db_name,$content,$_add_name) = $sth->fetchrow_array()) {
    s/\<templ_var ([a-zA-Z0-9\{\'\}_]+)\>/ eval ($1) /ge;
    s/{{([a-zA-Z0-9\{\'\}_]+)}}/ eval ($1) /ge;
    $_content = $_;
    if ($_add_name) {
        $_content = qq~<!--Start $db_name-->$_content<!--End $db_name-
+->~;
    }
    $temp_vars{$db_name} = $_content;
}
[download]

I hope I made this clear enough.
I would appreciate any tips or advice.
Thank you.

Richard