Select Code to Download

while (<LOG>){ $string .= $_;  }
@array = split(/\n/, $string);
foreach (@array) {

while (<LOG>){
  chomp;