dd "UNSIGNED OCTETS(C*) ", unpack "C0C*", $unicode_string.$unicode_string;
dd "UNSIGNED OCTETS(C*) ", unpack "U0C*", $unicode_string.$unicode_string;
__END__
("UNSIGNED OCTETS(C*) ", 12354, 12354)
("UNSIGNED OCTETS(C*) ", 227, 129, 130, 227, 129, 130)

##</code><code>##

@bytes = unpack("U0C*", $Unicode_string);
##</code><code>##


    $code_point=0x3042;#HIRAGANA LETTER A
    $unicode_string=pack('U*', $code_point);
    @bytes=map{ sprintf("%X",$_) } unpack("U0C*", $unicode_string);
    print join('|', @bytes), "\n";
__END__
E3|81|82