REGEXP (рег. выражения) HELP

[Гость]

Народ, подскажите плииз как мне сделать так:

мне нужен шаблон, которому соответствует строка в которой встречаються например слова ТРАЛЯЛЯ и ТРУЛЮЛЮ, не зависимо от порядка.

Те первым может стоять и ТРАЛЯЛЯ и ТРУЛЮЛЮ. Только не прпедлагать типа (ТРАЛДЯЛЯ|ТРУЛЮЛЮ).*(ТРУЛЮЛЮ|ТРАЛЯЛЯ). Слов может быть и 50 штук... А создаваться шаблон жоолжен автоматом)

Заранее всем сенкс

[Гость]

на Perl можно сделать так :

# -- code ---

my @patterns=("qwerty","jkr","nbnb"); # набор шаблонов

my $text = "qwerty jkr rijvoer qwerty nbnb ytrewq qwerty "; # строка поиска

my $c=0;

my $pattern="(";

foreach(@patterns) {

$pattern .=$_."|";

};

chop($pattern);

$pattern.=")";

while($text=~/$pattern/g) {$c++};

print "word count: $c\n";

# -- code ---

только этот код ищет не слова, а вхождения подстрок, но это легко

переделать