my %info;
while (<>) {
    my ($key, $value) = /([^|]*\|[^|]*)\|(.*)/;
    push @{$info{$key}}, $value;
}
while (my ($key, $value) = each %info) {
    local $" = ",";
    print "$key|@$value\n";
}
__END__