perl -e "while(<>){} print qq($.\n);" filename