perl -lpe '$s+=$_}{$_=$s/$.' file