while (<UNMODIFIED>) {
                    /STRUC20/ and print MODIFIED $_;
               }