map{$_=chr hex,printf/[ -~]/?$&:/
/?'\n
':'\x%02x',ord}split$"for<>