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

[ark]

Apparement, avec ta nouvelle chaine, le code suivant fonctionne:

Code PERL :


#!/usr/bin/perl

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

foreach my $i (split(/ /, $str)) {
    foreach my $j (@arr) {
    print "FUNC($j)\n" if ($i =~ $j);
    }
}