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

[gruik]

l'implementation naïve en Perl donnerait ça :

Code PERL :

#!/usr/bin/perl
use strict;
use warnings;

my $str="titi toto coincoin bouzin gruik pouet bouzintotogruik bouzin";
my @arr=("toto", "bouzin", "pouet");

print $str."\n";
for (my $i = 0; $i < length($str); $i++) {
        foreach my $j (@arr) {
                if (index (substr($str, $i, length($str)), $j) eq 0) {
                        print "FUNC($j)\n";
                        next;
                }
        }
}

Code :

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

si quelqu'un a une implémentation plus propre/astucieuse/perleuse je prends !