tell application "Numbers"
	activate
	tell the front document
		set myList to {}
		set sheetNumber to 1
		repeat with aSheet in sheets
			set theTable to the table 1 of sheet sheetNumber
			local cellString
			tell theTable
				repeat with theCell in cells
					set cellString to value of theCell as text
					local tokenString
					set tokenString to ""
					if cellString contains "<$" then
						(*We found an occurance*)
						set y to length of cellString
						set x to 1
						repeat until x is y
							set nextCharacter to x + 1
							if character x of cellString contains "<" and character nextCharacter of cellString contains "$" then
								(*We found the start*)
								repeat until character x of cellString contains "$" and character nextCharacter of cellString contains ">"
									set tokenString to tokenString & character x of cellString
									set x to x + 1
									set nextCharacter to x + 1
									set tokenString to my replace_chars(tokenString, "<$", "")
								end repeat
								if length of tokenString > 0 then
									copy tokenString to the end of myList
								end if
							end if
							set x to x + 1
						end repeat
					end if
					
				end repeat
			end tell
			set sheetNumber to sheetNumber + 1
		end repeat
	end tell
	return myList
end tell

on replace_chars(this_text, search_string, replacement_string)
	set AppleScript's text item delimiters to the search_string
	set the item_list to every text item of this_text
	set AppleScript's text item delimiters to the replacement_string
	set this_text to the item_list as string
	set AppleScript's text item delimiters to ""
	return this_text
end replace_chars