#!/usr/bin/perl --
use strict; use warnings; use Data::Dump;
my $code_point      = 0x3042;# HIRAGANA LETTER A aka 12354
my $unicode_string  = pack('U*', $code_point);
dd 12354 => pack('U*', 12354);
dd "UNSIGNED CHARS(W*)  ", pack "W*", unpack "U*", $unicode_string.$unicode_string;
dd "UNSIGNED OCTETS(C*) ", unpack "C*", $unicode_string.$unicode_string;
__END__
(12354, "\x{3042}")
("UNSIGNED CHARS(W*)  ", "\x{3042}\x{3042}")
("UNSIGNED OCTETS(C*) ", 12354, 12354)