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