perl -e'
   binmode(STDOUT, ":encoding(UTF-8)";
   $text="\x{00fc}";
   say length($text);
   say $text;
'