perl -e 'map{print pack("C",$n?$_-$n: $_);$n=$_} qw/70 171 279 384 506 538 616 713 829 926 1034 1044/' -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/saopaulo-pm/attachments/20071224/de8d3b58/attachment.html