while(<>) {
   s/(.)/ (ord($1) <= 0) ? chr(128-(45-ord($1))) : chr(ord($1)-45)/ge;
   print;
{