Perl RegEx и pattern negation

[вЫлЫсЫпЫдЫстЫ]

Привет!

Perl эксперты, прошу помоши.

Столкнулся с постоянно встречаюшейся проблемой исключения значений используя регулярные выражения в Perl.

Простой пример навскидку.
Есть массив со строчными значениями:

us.chicago
us.losAngeles
us.newYork
uk.london
ie.dublin
ie.cork
ee.tallinn
ru.moscow

Надо выдернуть все КРОМЕ Америки, например.

Вот тут как раз загвоздка. В Perlе нет эквивалентного PHPшному "!" (negation).
Другая проблема что представленное выражение должно быть как параметр в настройке программы, т.е. манипуляции с "!~" никак НЕ подходят:

useRegEx = REGEX[.+] (значение по defaultу - всё)

Все становится ещё интереснее, т.к. negative lookbehind работает ТОЛьКО с fixed length.

Из Perl документации:
(?<!pattern) A zero-width negative lookbehind assertion. For example /(?<!bar)foo/ matches any occurrence of "foo'' that isn't following "bar''. Works only for fixed-width lookbehind.
http://www.perl.com/doc/manual/html/pod/perlre.html

Как быть?
Как сказать "все КРОМЕ ^us\..+"?

Заранее благодарю за любую помошь!

P.S. Google молчит как мёртвый, и тока повторяет !~ !~ !~