Select Code to Download

#Assuming that $variable contains the value to match for 
#( Something from $runset{GROUND-NODE} ) . . .
...
          :             #as before
          G             #the G because it's in GROUND-NODE
          /xg;          #Substitute globally

#Complete code!
#(Almost . . .)
...
    foreach $power_var (split /,/, $runset{POWER-NODE}) {
        $PIN =~ s/$power_var:./$power_var:P/g
}