Select Code to Download

#Store the file in an array, split by newlines
while (<LOG>){
...
       }

@array = split(/\n/, $string);

while (<LOG>){
       chomp;
       push( @array $_ );
       }