$s = join "", map { chr $_ } (0 .. 255);
$s =~ s/[^[:print:]]//g;
warn $s;