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