[Dweem]

должно быть примерно так:

var adress		:String 	= "topoly@list.ru";
var isValidAdress	:Boolean 	= true;	// изначально считаем адрес валидным
var containsAt		:Boolean 	= false ; // содержит ли @
var containsDot		:Boolean 	= false ; // содержит ли .
var i			:int	 	= 0;
while (i < adress.length) {
	if (adress.charAt(i) == "@") {
		if (containsAt) {			// если уже содержит символ @ 
			isValidAdress = false; // значит адрес не верный .
			break;
		}
		containsAt = true; 		// содержит символ @
		if (i == 0 || i = (adress.length - 1) ) { // если @ в начале или в конце ... 
			isValidAdress = false; 				 // значит адрес не верный .
			break;
		}
	}
	else if (adress.charAt(i) == ".") {
		containsDot = true;  		// содержит символ .
	}
	i++;
}
if (!containsDot){
	isValidAdress = false;
}