my $dir = "/perl/bin/ThisDirectoryHere";
my @files = grep { -f and -r _ and -w _} glob "$dir/*";
system '/usr/bin/perl', '-pi', '-e', 's/oldword/newword/gi', @files
    and die $?;