if ($line =~ m/^\s*terminal\s=\s"([^"]+)"\s*$/) { 
     $line =~ s/$1/$change/;
      }