open(FILE, "/home/user/template/$filename.txt"); while () { s/(\$[a-zA-Z0-9\{\'\}_]+)/ eval ($1) /ge; $template{'content'} .= $_; } close(FILE); #### while(my ($db_name,$content,$_add_name) = $sth->fetchrow_array()) { s/\/ eval ($1) /ge; s/{{([a-zA-Z0-9\{\'\}_]+)}}/ eval ($1) /ge; $_content = $_; if ($_add_name) { $_content = qq~$_content~; } $temp_vars{$db_name} = $_content; }