my $s = pack "A10", 'zehn €';
print length $s, "\n", unpack "A10", $s;