# ED A0 BD ED B8 80
my $bin = pack "C*", 0xED, 0xA0, 0xBD, 0xED, 0xB8, 0x80; 
my @cps = unpack "U*", decode_utf8 $bin; # D83D DE00