in reply to perl
On most modern systems this may suffice as well.
grep -vc '[^[:space:]]' filenames...
Of course it isn't perl but it is sexy =) Tho to be honest I really use a space and ^Vtab rather than that crappy ansi notation =).
Someone needs to snag the most recent regexp engine from perl and make a real greperl or grep with a -P flag to use that engine. Too many good tweaks in the perl regexp are going unexercised. =)
--
$you = new YOU;
honk() if $you->love(perl)
In Section
Seekers of Perl Wisdom