Define_tag(
	'email2',
	-namespace='valid_',
	-Priority='replace',
	-required='email',
	-type=string);

		
		local('result' = true);

		(#email == NULL || #email == '') && (#email->(EndsWith:'.') && #email !>> '@') ? return:false;

		#email->trim;
		#email !>> '@' ? return:false;
		#email->(EndsWith:'.') ? return:false;
		#email->(EndsWith:'@') ? return:false;
		
		Local('illegal' = (array: '`','~','!','$', '#','^','&','*','(',')','+','=',' '));
		Local('theSplit' =# email->(split:'@'));


		#theSplit->(size) != 2 ? return:false;
		#theSplit->second == '' ? return:false;
		#theSplit->second !>> '.' ? return:false;
			
			
		// Loop through all the the illegal characters       
		iterate:#illegal, local:'i';
			#email->(Contains:#i) ? return:false;
		/iterate;

			
		return:#result;
		
/Define_tag;