Select Code to Download

while (<$in>) {
    chomp(my $line=$_);
...
  # two spaces
   # three spaces
    # four spaces