echo "pvddoiudqnCjp{1gh" | perl -pe 's/(.)/chr(ord($1)-3)/ge'