use Devel::Peek;
use JSON::XS;
my $smile = "☻";
my $j = JSON::XS->new->latin1(1)->encode(["$smile"]);
my $d = JSON::XS->new->utf8(1)->latin1(1)->decode($j);
Dump $$d[0];