perl -nE'/-/ or$x+=$_}{say$x'