i used to work on 40-50k line files with one function and a bunch of gotos in perl, in a multi billion dollar company its fine you just binary search your way

i used to work on 40-50k line files with one function and a bunch of gotos in perl, in a multi billion dollar company its fine you just binary search your way into it, put print "AAAA" in the middle, see if its printed, then put it in the half of the half and try agian. emacs couldnt even find the bracket ending of the if condition (not the block, the condition..), have you ever seen if conditions(again, not the block) that spans your whole screen? its not as bad as you think, it made me realize we take code very seriously, but its actually ok, 10k line file 100k line file, whatever.. its all the same