$x =~ s/(.)/ord $1/egs;