Hey, funny, just the other day I whipped this up:

perl -wpC -e 's/(.)/sprintf "U+%04X ", ord $1/eg'

Which is essentially the same, but your version is better because it leaves the ASCII data alone.