Показать сообщение отдельно

Perl: строковые ф-ции. вопрос
  #1  
Старый 04.05.2007, 18:52
DRON-ANARCHY
Отец порядка
Регистрация: 04.03.2005
Сообщений: 1,007
Провел на форуме:
1204641

Репутация: 412


По умолчанию Perl: строковые ф-ции. вопрос

Есть проблема. Нужно отбиться от ботов...
Они сцуке засерают гостевуху одну. Не мою... но помочь надо)
Вобщем, e-mail фильтруется так:
PHP код:
if ($Form{email}=~tr/\/\\\+=~;<>*|`&$!#()[]{}:'" //) {print_error "Запрещенные символы в email"} 
так вот боты всегда отписываются что они имеют ящик в aol.com
каким образом запретить использование этих ящиков?
Warning: это Perl. На php я и сам бы давно сделал)