Проверка адреса e-mail на валидность.

[goldlider]

Имеется такая задача:
В переменную email мы присваиваем какой-нить адрес, к примеру (example@timon.com).
Нужно проверить введенный адрес правильно введен, т.е. в адресе должны отсутствовать повторяющийся символ @, повторяющиеся точки, символ @ не должен присутствовать первым или последним, но хотя бы должна присутствовать одна точка и одна собачка.
Недопустимые записи (@example.timon.com, example.timon.com@, exa@mple@.timon.com, example..timon.com).
Все это нужно реализовать с помощью цикла while. С помощью других циклов не нужно.

Вот что у меня получилось, хотя многое неверно:

var i = 0;
var signEmail:Boolean;
var email = "example@timon.com"
 
while (i < email.length)
{
	if (email.charAt(0) == "@" || email.charAt((email.length)-1) == "@" || (email.charAt(i) == "@" && email.charAt(i+1) == "@") || (email.charAt(i) == "." && email.charAt(i+1)) == "." || sobachka.charAt(i) != "@" || sobachka.charAt(i) != "." )
	{
	 	signEmail = false;
		trace("Проверьте корректен ли ввод !");
		break;
	}
	else
	{
		signEmail = true;
		trace("Вы правильно набрали 8)");
	}
	i++;
}