tell application "Keynote"
	activate
	tell the front document
		set myList to {}
		
		repeat with aSlide in slides
			repeat with aItem in text items of aSlide
				set fieldString to object text of aItem
				
				local tokenString
				set tokenString to ""
				if fieldString contains "<$" then
					(*We found an occurance*)
					set y to length of fieldString
					set x to 1
					repeat until x is y
						set tokenString to ""
						set nextCharacter to x + 1
						if character x of fieldString contains "<" and character nextCharacter of fieldString contains "$" then
							(*We found the start*)
							repeat until character x of fieldString contains "$" and character nextCharacter of fieldString contains ">"
								set tokenString to tokenString & character x of fieldString
								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 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