Select Code to Download

if ($_ =~ /^xa1/) {

sub getsub
{
...
        print if /\.subckt $sub/ .. /\.ends/;
    }
}

use strict;
use warnings;
...
}

close $fh or die "Could not close file: $!";

 2:55 >perl 1032_SoPW.pl subs.txt
line found to be xa1 a s f a1
...
 .ends

 2:56 >

while ((my $nxt = readline($fh)) =~ /^\+/)

while (!eof && (my $nxt = readline($fh)) =~ /^\+/)