my $text = do {local $/; <$InFile>};