while (<UNMODIFIED>) {
    print MODIFIED $_ unless 1 .. /STRUC20/;
    # i.e. do print, except for first line upto a line that matches STRUC20
}