Select Code to Download

while ( <FH> ) {
    last if $_ eq 'foo'; # Where foo can only appear once in the file
...
while ( <FH> ) {
    print;
}