if ( m/^\.SUBCKT\s+($runset{SchCell})/ ){
  my $match = $1;

##</code><code>##

foreach my $word (split ' ', $match) {
  if ($word =~ /^V(?:DD|CC)\z/) {
    # push @PN, etc.
  }
  elsif ($word =~ /^(?:VSS|GND)\z/) {
    # push @GN, etc.
  }
}