my $string = do {
    local @ARGV = $filename;
    join q{ }, grep $_ ne "\n" && chomp, <>;
};