Select Code to Download

#!/usr/bin/perl

...
    my $byteLength = length($binaryString);
    return $byteLength;
}

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

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

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

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