my $printing = 0;
    while (<UNMODIFIED>) {
        if ($printing) {
            print MODIFIED $_;
            next;
        }
        $printing++ if /STRUC20/;
    }