s/(.)/chr((ord $1)-45)/ge;