#!/usr/bin/perl

#$test = "\x{05D0}\x{20AC}";
#$test = "\xd7\x90\xe2\x82\xac";
#$test = "\x05\xD0\x20\xAC";
$test = '®';
#$test = "\x{c2ae}";

$unpacked = unpack('H*',$test);

print("string: $test\n");
print("unpacked: $unpacked\n");
print("char length: " . length($test) . "\n");
print("byte length: " . getByteLength($test) . "\n");

sub getByteLength
{
    my ($string) = @_;
    use Encode qw(encode decode);
    $binaryString = encode('UTF-8', $string);
    my $byteLength = length($binaryString);
    return $byteLength;
}

##</code><code>##

string: ®
unpacked: c2ae
char length: 2
byte length: 4

##</code><code>##

$test = "\x{05D0}\x{20AC}";

##</code><code>##

$test = "\x05\xD0\x20\xAC"

##</code><code>##

$test = "\xd7\x90\xe2\x82\xac";