Select Code to Download

while (<FILE>) {
    if (/^Number1/) {
...
        # non-header
    }
}

open ...
my $header_line = <FILE>;
while (<FILE>) {
    # data line
}