use strict;
use File::Find::Rule;

my $commonField = 'Perl';
my $responseDir = '.';

my @files = File::Find::Rule->grep($commonField)->file->in($responseDir);
print "I found '$searched_word' in $_" for @files;