my @CLEANED = map { ( my $s = $_ ) =~ tr/\000//d; $s } @EMPLOYEES;