...
my @fileName = grep(/index/i, readdir D);
...

##</code><code>##

if(index(@fileName, "txt") == -1) {
...
}