Help for this page

Select Code to Download

Select or download this

while (<>) {
   my $inrange = /^\.subckt/../^\w/;
...
      print;
   }
}