perl -wnle "$i++;END{print $i}" in.fi

##</code><code>##

perl -wnle "END{print $.}" in.fi