Select Code to Download

      # Keep (possibly edited) line
      print $fh_in $_;
   }

my @lines = <$fh_in>;

    for (@lines) { s/// }