Yuck, map in void context. :) !/^\./ and $cnt++ for readdir( DIR ); And actually, I'd rather use a grep in scalar context: $cnt = grep !/^\./, readdir DIR;

Makeshifts last the longest.