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