perl -le 'print for grep {m(/mach$)} @INC'