use Fcntl 'O_RDWR';
use Tie::File;

my @file;
my $file = shift || die "$0 <file>";
tie @file, 'Tie::File', $file, mode => O_RDWR or die $!;

my $null = chr 0;
$file[-1] =~ s/\Q$null\E//g;