@files = sort grep /^.{1,8}\.doc$/, readdir(DIR);