print map "$_\n", grep /[.]rtf\z/i, @allfiles;