On 8/9/07, Marco Lima <marco.lima em e-via.com.br> wrote: > perl -ne > '/([^x]+)x+(\d+)x+(\w)/;$_{$1}+=$3eq"V"?$2:-$2;END{print"@{[%_]}\n"}' data 78, já que vale não usar Data::Dumper: perl -ne 'END{print "@{[%d]}\n"}($k,$v,$_)=/([^x]+)/g;$d{$k}+=/V/?$v:-$v' data -- edenc.vox.com