open my $FH, '<', $file or die $!;
while (<$FH>) {
    last if /^__END__\s/; # Update: maybe /\b__END__\b/ or /(?:^|\s)__END__(?:\s|$)/)
    print;
}

##</code><code>##

print "
__END__
";