2;0 juerd@ouranos:/usr/lib/perl$ perl -pe'$_ = "" unless /use\s*constant/' * */* */*/* */*/*/* | wc -l
      0