Help for this page

Select Code to Download

Select or download this

    my $printing = 0;
    while (<UNMODIFIED>) {
...
        }
        $printing++ if /STRUC20/;
    }