$val=$envalert{$var};
      if ($val =~ /$modfrom/) {  
         $replval = $1 ;