Select Code to Download

my(@input_array) =();

...
    print $_, "\n";
  }
}

my(@input_array) =();
my($one_line) = '';
...
    print $one_line, "\n";
  }
}