http://www.perlmonks.org?node_id=165531


in reply to Jumping out of a partially read file

 while (<FILE>) {
    last unless /^/ .. /^MARKER/;
    $foo = $bar;
}

[download]
Or whatever pattern you use to signify the end of the header. HTH.

In Section Seekers of Perl Wisdom