Select Code to Download

>perl -le"binmode STDOUT, ':encoding(iso-latin-1)'; print qq{print len
+gth '\x85'}" | perl -l
1   Good
...

>perl -le"binmode STDOUT, ':utf8'; print qq{use utf8; print length '\x
+85'}" | perl -l
1   Good