#!/bin/perl

open V, "<var.txt";
while (<V>) {
   ($k,$v) = /^! (__.*__) (.*)\n*$/;
   next if ($k eq "" or $v eq "");
   $h{$k}=$v;
}
close V;

open T, "<temp.txt"; open R, ">res.txt";
while (<T>) {
   for ($i=0; $i<=5; $i++) { foreach $k (keys %h) { s/$k/$h{$k}/g; } }
   printf R unless (/__.*__/);
}
close T; close R;