You said: "tr/\0-\037\0177-\0377//d;"

Maybe you didn't test your solution throughly:-) A quick fix, including tester, could be:

for (0..255) {
   $s .= chr();
}
$s =~ tr/\0-\37\177-\377//d; # fixed, no more leading zeroes
print $s;
[download]