Select Code to Download

#!/usr/bin/perl
use warnings;
...
my $result = $string & $mask;
$result =~ tr/\x00//d;
print $result;