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

[gruik]

je me doutais bien qu'il devait y avoir une solution qui troue le fion, et elle est d'un bon calibre :

Code PERL :

#!/usr/bin/perl
my $str="titi toto coincoin bouzin gruik pouet bouzintotogruik bouzin";
my @arr=("toto", "bouzin", "pouet");

print $str."\n";

sub FUNC { print "FUNC(".$_[0].")\n"; }
my $pattern = '('.join('|',@arr).')';
$str =~ s/$pattern/FUNC($1)/eg;

Code :

titi toto coincoin bouzin gruik pouet bouzintotogruik bouzin
FUNC(toto)
FUNC(bouzin)
FUNC(pouet)
FUNC(bouzin)
FUNC(toto)
FUNC(bouzin)

thx b0fh