use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Useqq = 1;
my @a = ("a\000b\000c", "foo\000bar");
print Dumper \@a;

my @cleaned = map {tr/\000//d; $_ } @a;
print Dumper \@cleaned;