Extract names from compound names

Hi,

 Here is a function to get Ara from a list of compound names woth Ara inside :

let xBegin := substring(Nom,0,4)

let xLen := length(Nom)

if xBegin = "Ara " then substring(Nom,4,xLen) end

Ara vert -Ara bleu-Ara rouge

> Ara

How can modify it to get all the compound names of a list ?

Ara vert -Ara bleu-Ara rouge

Amazone à front bleu -Amazone à nuque jaune -Amazone couronné de lilas

Toucan bleu -Toucan montagnard- Toucan émeraude 

Thank you