<>=~$";map$\+=$i/$'|/-/*$i++?0:$_,sort{$b-$a}glob<>;print