Verify the function of the email address
Function wxckmail ($ email) {
Return EREGI ("^ [_ /. 0-9a-z -] @ ([0-9A-Z] [0-9A-Z -] /.) [AZ] {2,3} $", $ EMAIL);
}
Return to TURE in Correct Return Flase
