$email[0] = '@' || $email[0] = '.' ||

$email[ $emllen-1 ] = '@' || $email[ $emllen-1 ] = '.' ||

$strxchr( $email, '@', 2 ,0) || !strchr( strsetbehind( $email, '@' ,0), '.' ,0)