Select Code to Download

open(INFILE, "iftoportchop");
    while(<INFILE>){
...
       }
}

"iftoportchop"
.portIfIndex.3.1 : INTEGER: 377

"portnameok"
.portName.3.1 : DISPLAY STRING- (ascii):  HX06S24E-CHASSIS1

377
: DISPLAY STRING- (ascii):  HX06S24E-CHASSIS1

$var =~ tr/\n/ /;