> perl -MJSON::XS -MData::Dumper -E 'say Dumper(JSON::XS->new()->decode(qq(["☺"])))'
$VAR1 = [
          "\x{e2}\x{98}\x{ba}"
        ];