Здравствуйте, AlexeyQ, Вы писали:

AQ>>>Надо именно одним регекспом
S>>А строки произвольные?
AQ>Да, конечно. Я просто не могу сообразить, как сделать отрицание. Было бы можно как для классов символов делать s =~ /contains.*[^(not contains)]/ — но не работает же, not contains воспринимается как множество символов... Тут еще одна проблема — с относительным порядком contains и not contains, ну да пофиг.

AQ>Переформулирую задачу. Достаточно просто узнать, как через оператор =~ сделать запрос "дай строки, НЕ содержащие XXX". Использование оператора !~ невозможно.

Тогда не знаю (надо смотреть, есть ли специальный синтаксис в Perl-е).
Если нет, срочно писать им!!! Это же будет вещь которую можно сделать только одним способом,
что противоречит идеологии Perl-а =))).

Вообще, по смыслу, нужно взять дополнение регулярного выражения. Только при этом, если
мне не изменяет память, оно может экспоненциально вырасти =).