property itemList : {}
property priceList : {}
set theInput to "Apple $1.00
Orange $2.00
Banana $3.00"
set AppleScript's text item delimiters to {tab}
repeat with i from 1 to (count paragraphs of theInput)
set tmpParagraph to paragraph i of theInput
try
set {tmpItem, tmpPrice} to {text item 1 of tmpParagraph, text item 2 of tmpParagraph}
copy tmpItem to the end of itemList
copy tmpPrice to the end of priceList
end try
end repeat
set AppleScript's text item delimiters to {""}
return {itemList, priceList}