Select Code to Download

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

$line =~ s/^(\s*terminal\s=\s")([^"]+)("\s*)$/$1$change$3/;