Select Code to Download

#!/usr/bin/perl
...
        s/([[:^ascii:]])/'\x{'.sprintf("%x",ord($1)).'}'/ge if $bytes 
+> length;

        return $_;

        81      Q       Q
...
Queensr˙che
unaccented: Queensryche

        81      Q       Q
        117     u       u
...
        99      c       c
        104     h       h
        101     e       e