
perl -e &#39;$_=q/4071787592023580810248818881-20/,s/(-?\d{2})(?{print chr($^N+30)})//g&#39;