On 8/9/07, eden <edencardim em gmail.com> wrote: > 94 :) > > perl -MData::Dumper -ne > '($k,$v,$_)=/([^x]+)/g;$d{$k}+=/V/?$v:-$v;END{print Dumper(\%d)}' data opa, 91: perl -MData::Dumper -ne 'END{print Dumper\%d}($k,$v,$_)=/([^x]+)/g;$d{$k}+=/V/?$v:-$v' data -- edenc.vox.com