Select Code to Download

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

# Requires Perl 5.14
my @CLEANED = map { s/\000//r } @EMPLOYEES;

map { tr/\000//d } my @CLEANED = @EMPLOYEES;

my @CLEANED = @EMPLOYEES;
tr/\000//d for @CLEANED;

use List::MoreUtils qw( apply );
my @CLEANED = apply { tr/\000//d } @EMPLOYEES;

use Algorithm::Loops qw( Filter );
my @CLEANED = Filter { tr/\000//d } @EMPLOYEES;

my @CLEANED = map { tr/\000//d; $_ } @EMPLOYEES;  # XXX