@Files = grep /\w/, readdir(DIR);