while (<>) {
   my $inrange = /^\.subckt/../^\w/;
   if ( $inrange && $inrange !~ /E/ ) {
      print;
   }
}