Help for this page
# Keep (possibly edited) line print $fh_in $_; }
my @lines = <$fh_in>; for (@lines) { s/// }