xHarbour - Checando se um email é válido usando expressões regulares

cRegEx := "[A-Z0-9._%-]+@[A-Z0-9.-]+\.[A-Z]{2,4}"
If HB_RegExMatch( cRegEx, cEmail, .F. )
? "Email Válido!"
Else 
? "Email Inválido!"
EndIf