$x =~ s/(.)/sprintf "%03d", ord $1/egs;