set theList to {"[Ohne]", "[Passermarken]", "Weiß", "Schwarz", "C=90 M=30 Y=95 K=30", "Schwarzübergang", ¬ 
  "Sehr weiche schwarze Vignette", "Grün, Gelb, Orange", "Lila radial", "Lagune", "C=0 M=0 Y=0 K=100", ¬ 
  "C=0 M=75 Y=100 K=0", "HKS 1 N", "HKS 2 N", "HKS 3 N", "HKS 4 N", "HKS 5 N", "HKS 6 N", "HKS 7 N", "HKS 8 N", ¬ 
  "HKS 10 N", "HKS 11 N", "HKS 12 N", "HKS 13 N", "HKS 14 N", "HKS 15 N", "HKS 16 N", "HKS 17 N", "HKS 18 N", ¬ 
  "HKS 21 N", "HKS 22 N", "HKS 23 N", "HKS 24 N", "HKS 25 N", "HKS 26 N", "HKS 27 N", "HKS 28 N", "HKS 29 N", ¬ 
  "HKS 31 N", "HKS 32 N", "HKS 33 N", "HKS 34 N", "HKS 35 N", "HKS 36 N", "HKS 37 N", "HKS 38 N", "HKS 39 N", ¬ 
  "HKS 40 N", "HKS 41 N", "HKS 42 N", "HKS 43 N", "HKS 44 N", "HKS 45 N", "HKS 46 N", "HKS 47 N", "HKS 48 N", ¬ 
  "HKS 49 N", "HKS 50 N", "HKS 51 N", "HKS 52 N", "HKS 53 N", "HKS 54 N", "HKS 55 N", "HKS 56 N", "HKS 57 N", ¬ 
  "HKS 58 N", "HKS 59 N", "HKS 60 N", "HKS 61 N", "HKS 62 N", "HKS 63 N", "HKS 64 N", "HKS 65 N", "HKS 66 N", ¬ 
  "HKS 67 N", "HKS 68 N", "HKS 69 N", "HKS 71 N", "HKS 72 N", "HKS 73 N", "HKS 74 N", "HKS 75 N", "HKS 76 N", ¬ 
  "HKS 77 N", "HKS 78 N", "HKS 81 N", "HKS 82 N", "HKS 83 N", "HKS 84 N", "HKS 88 N", "HKS 89 N", "HKS 90 N", ¬ 
  "HKS 91 N", "HKS 92 N", "HKS 93 N", "HKS 95 N", "HKS 96 N", "HKS 97 N"} 
 
return my findInList("^HKS.*", theList) 
 
on findInList(SearchString, searchList) 
  try 
    if class of searchList ≠ list then set searchList to searchList as list 
    try 
      set theResult to find text SearchString in searchList with regexp and string result 
    on error 
      return {} 
    end try 
    if class of theResult ≠ list then set theResult to theResult as list 
    set theResult to sortlist theResult with remove duplicates 
    set theResult to exclude items "msng" from theResult 
    try 
      set theResult to sortlist theResult comparison 2 
    end try 
    return theResult 
  on error 
    return false 
  end try 
end findInList