undef $/;
my $text = <$fh>;