Help for this page
... my @fileName = grep(/index/i, readdir D); ...
if(index(@fileName, "txt") == -1) { ... }