@Files = grep {not /^(\.\.?|list\.txt)$/} readdir(DIR);