sub is_hex {
  my ($s) = @_;

  local $SIG{__WARN__} = sub { die };
  return eval { scalar hex $s; 1 };
}