perl -le '$_=ord$/;print$_--while$_'