push(@file_list, $File::Find::name)
       if /\.(?:txt|jpg|gif)\z/i
       && lc($_) ne 'category.txt';