2;0 juerd@ouranos:/usr/lib/perl$ perl -pe'$_ = "" unless /sub\s+[A-Z_]+\s*\(\s*\)/' * */* */*/* */*/*/* | wc -l
   1094
# Sorry for the ugly */*-stuff. I didn't feel like
# using File::Find in a oneliner :)