my $text; { local $/; $text = <$fh_in>; }
$text =~ s///g;