use strict; use File::Find::Rule; my @files = File::Find::Rule ->file() ->grep(qr!IsFrequentlyUsed!) ->in('.');