sub as_hex { return map { defined $_ ? sprintf("%02x", $_) : '  ' } @_ }