Select Code to Download

while ( <FH> ) {
    if ( /^SOURCES/ && /\\$/ ) {
...
        }
    }

my $data;
while ( <FH> ) {
...
    }
print $data;