Select Code to Download

...
my $in_data_section = 0;
...
    }
    $in_data_section = 1 if m/^Number/;
}

while (<FILE>){
    chomp;
...
    }
    #... do other stuff
}