perl -ne '}{ print $.' # count lines