foreach (@lines)
        {
         if ( /(.*)$old_hostname(.*)/i ) 
         { 
           $concat = $1 . $new_hostname . $2;
           s/$_/$concat/g; 
         
          }  
          open (OUT,">$file");
         print OUT @lines;     
       }