loop{$><<(('\n'<<i=$<.read(3).hex)[/..
|[ -~]$/]||'\x%02x'%i)}