Lookup words contained in a cell

Hi

I have a series of jumbled data (column A). Within the data set are certain key words highlighted (ie fruit names) that I want to strip out in a separate column (column B). Is there a lookup function that can lookup characters contained in a cell.

Thanks in advance


Long Description [B]
031660UAPPLEBRCIPI0
BRCIPI0ORANGEUBRC
JBUPEAR00031653UBRC
GFFUBORANGE0059716
OUBORANGE572UB
BKUBRCIPEAR555UBR
AGY5UBAPPLE001924
8YUBRAPPLE3413U
8AIYFPEARI00033405U
I3IUBORANGE33408U
HEFUBPEAR0197510UB