Select Code to Download

use strict;
use warnings;
...
        else      { print "$_: no match found\n"; }
    }
}

 1:51 >perl 1675_SoPW.pl
EMPTY STRING
...
EMPTY STRING

 1:51 >

MAIN_LOOP: while (<READ_NETLIST>) {
    chomp;
...
    }
    ...
}