my @lines = <$fh_in>;

	for (@lines) { s/// }