#!/usr/bin/perl
use strict;
use warnings;

my ($key,$value,$reason);
my %sum=();
while(<>)
	{
	unless(/.*\|(\d+)/){print STDERR "dropped line: \"$_\""; next;}
	($key,$value,$reason) = split(/\|/);
	$sum{$key}+=$value;
	}

foreach $key (keys %sum){print "$key|$sum{$key}|$reason\n";}