USERID1|2215|Jones,Tom|
USERID1|1000|Jones, Tom|
USERID3|1495|Dole, Bob|
USERID2|2500|Francis, Pope|
USERID2|1500|Francis, Pope|
##</code><code>##

#!/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";}

##</code><code>##

USERID3|1495|Francis, Pope
USERID1|3215|Francis, Pope
USERID2|4000|Francis, Pope