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