# win double quotes!

perl -F"/\-|\s/" -lane "$m{$F[0]}[0]++;$m{$F[0]}[1]+=$F[2]}{map{print join' ',$_,$m{$_}[1]/$m{$_}[0]}sort keys %m" xp.out