say unpack( "U*", "a");
printf("%04X\n", unpack('W*', decode_utf8("a")));
say join " ", unpack( "U*", "😎");
printf("%04X\n", unpack('W*', decode_utf8("😎")));

__END__

97
0061
240 159 152 142
1F60E