But this works:

So does this--but efficiently enough tha you can use it on huge files:)

c:\test>perl -ne"}{print$." junk.out
20000001
[download]

It actually beats wc -l on my system.