##
#!/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";}
####
USERID3|1495|Francis, Pope
USERID1|3215|Francis, Pope
USERID2|4000|Francis, Pope