perl -e '$_=q/4071787592023580810248818881-20/,s/(-?\d{2})(?{print chr($^N+30)})//g' -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/saopaulo-pm/attachments/20071229/26ee208b/attachment.html