Select Code to Download

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

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