perl -MJSON::XS -del #     vvvvvvvv
  DB<1> x JSON::XS->new()->ascii(1)->encode(["\x{00e9}"])
0  '["\\u00e9"]'     #     ^^^^^^^^