if (/($re).*addr = ([.\d]+)/){
      print "LIne $line_no kw=[$1] value=[$2] special\n"; 
      update_sheet($1,$2,$_);
      next;
    }
    
    # match more than 1 per line e.g. usim and isim   
    while (/($re)[ =]*([.\d]+)/g){
      print "Line $line_no kw=[$1] value=[$2]\n"; 
      update_sheet($1,$2,$_);
    }