while (<$fh_in>) {


##</code><code>##

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


##</code><code>##

my @lines = <$fh_in>;

	for (@lines) { s/// }