There is also the incredibly handy and usefull File::Find::Rule module:

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

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

my @files = File::Find::Rule->grep($commonField)->file->in($responseDi
+r);
print "I found '$searched_word' in $_" for @files;
[download]