perl -E '$r+=$_ while($_=<>)=~/^\d+/;say$r/--$.' -