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

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