opendir(DIR, ...);
while (defined ($eachfile = readdir(DIR) ))
    { next if not /\.txt$/; ... }