$str = join '', map{chr}0..255;
$str =~ tr/\11\12\40-\176//cd;       # ascify aka remove all crap chars
print $str, $/;