Select Code to Download

my @lines = <$fh>;                  # read whole file

...
        $match = 1;
    }
}

while ( <$fh> )
{
...
        $match = 1;
    }
}

my $lines;
while ( <$fh> )
...
    }
}