push(@sourcefiles, $_) if -f and /$datafile/i;

##</code><code>##

open(my $fh, '<', $File::Find::name) or die "Can't open $File::Find::name: $!";
my $source = do { local $/; <$fh> };
close $fh;