my $file_data = join q{}, @{[<$fh>]};