use utf8;
my $euro = "\x{20AC}";
print ord($euro);
print length($euro);

##</code><code>##

use utf8;
my $binary = "\xE2\x82\xAC";
print ord($binary);
print length($binary);