Как на Перле реализовать email validator?

Как на Перле реализовать email validator?
В Перле не секу.

Типа

если email соответствует синтаксису то ("Действие1");

если нет - то ("Вы ввели косячный email!");

Использовать JavaScript в моем случае неудобно, так как
придется перелопатить все сайты, на которых стоит email-форма.
Проще устроить проверку во входном одном Перл-скрипте, куда стекаются
все email'ы.

Поможите плз.

Код:

if ($email =~ /^\w+(\.\w+)*\@\w+(\.\w+)+$/) {         print "valid email address\n";     }     else {         print "invalid email address\n";     }

подробней надо?

bjim писал:

Код: if ($email =~ /^\w+(\.\w+)*\@\w+(\.\w+)+$/) {         print "valid email address\n";     }     else {         print "invalid email address\n";     } подробней надо?

1@1.1
фуйня товарищи

begemot писал:

1@1.1 фуйня товарищи

хм, МХ тоже думает что это емейл

а что же тогда - проверять все зоны? да еще и сразу проверять наличие домена? а как тогда проверить правильность имени в емейле?...

может подойти с другой стороны: при вводе емейла - высылать на него что-то важное - пароль, или код конфирмации или еще чего - тогда все левые, даже похожие на реальные - отсеются...

Можно немножко усложнить... насчет диапазонов символов.. чтобы например 1@1.1 не пропускало, а 1@11.ru пропускало но толку-то...
код конфирмации самое то.
НО: согласно исходных данных, ищется замена решению на javascript. Соответственно... конфирмационные коды и проверка хостов отпадает.
В рамках постановки задачи, тут можно только усложнить правило отбора адресов, но не сильно-то разгонишься.

По теме: http://www.greatcircle.com/lists/majordomo-workers/mhonarc/majordom…00015.html
Целесообразность такого для меня лично под вопросом...

В итоге все-таки сделал проверку на JavaScript. Спасибо всем. Рейтинг добавил +3.