Select Code to Download

while (<MYFILE>) {
  chomp;
...
  $outline[$i] =~ s/\s*$//g;
  print $outline[$i]."\n";
}