#!/usr/bin/perl

use strict;
use warnings;

my $fname = "Words.txt";
my $fsize = -s $fname;

open( my $fh, '<', $fname ) or die "$fname: $!\n";
binmode $fh;
$/ = undef;

my $data = <$fh>;
my $length = length( $data );
my $nnulls = tr/\x00/ /;

print "Read $length of $fsize bytes, changed $nnulls nulls to spaces\n";