Ответ

KLeN 10.01.2007 09:19 / 10.01.2007 09:28

не разбирался с задачей, но если заменить:

$tKeyword[^sText.match[([\w\-]+)][g]]

хотя бы на

$tKeyword[^sText.match[([^^\s,\.!\?\d]{5,})][g]]

оно уже работает, проблема только в выборке
подумайте над регулярным выражением в этом месте, уверен можно обойтись без Perl

---