find `perl -le 'print for grep {m(/mach$)} @INC'` -name '*.pm'