while ( my $line = <DATA> ) {
    print qq!modelCombo.addItem("$1");\n! if $line =~ m/"([^"]+)"/;
}

__DATA__
       "HP LaserJet IIISi" {set model "net_ljx000"}
       "HP PaintJet XL300" {set model "net_dsnj"} 
       "HP LaserJet 4 Plus / 4M Plus" {set model "net_lj4x"}
       "HP LaserJet 5L" {set model "net_lj4x"}
       "HP LaserJet 5MP" {set model "net_lj4x"}
       "HP LaserJet 5P" {set model "net_lj4x"}<p>