while (<FH>)
          {
          if (/(\S+):(\S+).*\n/)
               {
               $var1 = "$1";
               $var2 = "$2";
               s/$var1/$hash{$var1}_$var/g;
               }
           }