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

##</code><code>##

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

##</code><code>##

$x =~ s/(\d{3})/chr $1/g;