#!/usr/local/bin/perl

sub add {
    local ($size, $_) = @_;
    s=/?$=/=; $size{$_}+=$size while s=/[^/]*$==;
}

while (<>)
{
    &add ($size, $name) if ($size, $name) = m= (\d+) \| (/.+)=;
}

for (keys %size)
{
    print "$size{$_}\t.$_\n";
}