.SUBCKT testblock a b c vdd vcc vss vssa
*.PININFO a:I b:I c:I vdd:I vcc:I 
+ vss:G vssa:I
RR0 a vss 9.99967K $[PO]
XI48 a b c vdd vcc vss vssa / test2block
.ENDS

##</code><code>##

$runset{"POWER-NODE"}="vdd,vdda,vddb"
$runset{"GROUND-NODE"}="vssa"

##</code><code>##

.SUBCKT testblock a b c vdd vcc vss vssa
*.PININFO a:I b:I c:I vdd:P vcc:I 
+ vss:I vssa:G
RR0 a vss 9.99967K $[PO]
XI48 a b c vdd vcc vss vssa / cd_acore_porbuf
.ENDS

##</code><code>##

  while($line = shift @netlist){
    chomp $line;
    if($line =~ ".SUBCKT $runset{SchCell}"{
      #OK, where in the right area..
      print NET_N "$line\n"; 
      $line = shift @netlist;        # Get the next line 
      chomp $line;
      while($line !~ ".ENDS"){       # If we are at the END stop..
        for ($line) { 
          if (($line =~ "*.pininfo") {
          # Ok I'm here.. Now how do I get this line any other lines
	  # denoted by the "+" into an array
	  }
	# Now how do I do the search and replace.. for each of the pwrs
	# and grounds..
	}
      }
    }
  }