use File::Finder;
my @interesting = File::Finder->name('*.pm')->grep('user_method')->in('.');