there is a lot of code snippets around that turn utf8 back and forth between wide integers -- including parts of the recent perl releases. Translate some of that into pure perl. I'm not going to start enumerating the possible ways to iterate over the bytes in a string in this reply.