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

my %sum;

while (<DATA>) {
    chomp;
    
    my ($key, $value, $reason) = split(/\|/);

    if (! defined $reason || $value !~ /^\d+$/) {
        warn qq<dropped line: "$_"\n>;
        next;
    }

    $sum{$key}{value} += $value;
		if (! defined $sum{$key}{reason})
			{
			$sum{$key}{reason} = $reason;
			}
}

local $" = '/';
for my $key (keys %sum) {
    print "$key|$sum{$key}{value}|$sum{$key}{reason}\n";
}

__DATA__
USERID1|2215|Jones,Tom|
USERID1|1000|Jones, Tom|
USERID3|1495|Dole, Bob|
USERID2|2500|Francis, Pope|
USERID2|1500|Francis, Pope|
USERID4|0045|Doe, John|
USERID5|1225|Doe, Jane|
USERID4|4995|Doe, John|
USERID4|9995|Doe, John|
USERID6|1095|Darwin, Anita|
USERID7|1495|Dawson, Gary|
USERID6|1250|Darwin, Anita|