Select Code to Download

% perl -CS -E 'say chr(0xe9)' | perl -CS -nE 'require bytes;  say byte
+s::length($_); chomp; say bytes::length($_)'
3
...

% perl -E '$x = "\N{U+E9}"; require bytes; say bytes::length($x)'
2