verry nice.. I always just do a lazy aproach: cat *.pl | perl -ne 'print unless /^\s*$|^#/;' | wc -l could integrate the pod match and do a lot more with this.. but I am lazy :-P