Select Code to Download

# update sheet
sub update_sheet {
...
  $sel->AddComment( { Text=> $comment } );
  $kwhashref->{$kw}[3] = $value; # for debugging
}

    if (/($re).*addr = ([.\d]+)/){
      print "LIne $line_no kw=[$1] value=[$2] special\n"; 
...
      print "Line $line_no kw=[$1] value=[$2]\n"; 
      update_sheet($1,$2,$_);
    }