chercher des sous-chaines dans une chaine et dans l'ordre

[gruik]

bon dit comme ça c'est peut-être pas très parlant, j'ai :
- d'un coté la chaine STR = "titi toto coincoin bouzin gruik pouet toto bouzin gruik bouzin"
- de l'autre une liste/un tableau de mots ARRAY = "toto", "bouzin", "pouet"

je veux à chaque fois que dans STR on trouve un mot qui appartient à ARRAY effectuer une action, disons appeller la fonction FUNC(), le tout dans l'ordre de la chaine, c'est à dire à l'exécution ça doit donner un truc comme ça :

Code :

str = "titi toto coincoin bouzin gruik pouet toto bouzin gruik bouzin"
FUNC(toto)
FUNC(bouzin)
FUNC(pouet)
FUNC(toto)
FUNC(bouzin)
FUNC(bouzin)

si possible de manière élégante en Perl (parcequ'y a toujours moyen d'être élégant avec Perl), sinon au moins en pseudo-code

des idées ?