perl -e '@lines=`cat file.pl`;print $#lines,"\n", $lines[2];'

##</code><code>##

18
use Unicode::Collate::Locale;