perl -MFile::Find -le'find(sub{print $File::Find::name if /$ARGV[0]/},$_) for @INC' Dumper