Select Code to Download

perl -e 'while (<>){@a=split;$s{$a[0]}+=$a[1] if $a[1]}print "$_=$s{$_
+}$/"for sort keys %s' texto.txt

...
23432=99
54567=20
[fpalacios@linuxtest fpalacios]$

$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,
$_^=q,$\^-]!,,print