Select Code to Download

xa1 b t g e1
xa1 a s f a1

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

.subckt a1 x y z
   xa a b c1
...

xa1 b t g e1
xa1 a s f a1

use strict;
use warnings;
...

close $fh
    or die "Cannot close file '$ARGV[0]': $!";

13:20 >perl 1032a_SoPW.pl subs.txt
line found to be xa1 b t g e1
...
 .ends

13:20 >

use strict;

#!/usr/bin/perl -w
...
use warnings;