perl -E '$r+=$_ while($_=<>)ne"\n";say$r/(--$.||1)'