pears.NetValidateEmailAddress

CREATE FUNCTION "pears"."NetValidateEmailAddress"( 
  IN @email VARCHAR(200) ) 
RETURNS long VARCHAR
BEGIN
  DECLARE "RV" long VARCHAR;
  SET "RV" = IF "isnull"((SELECT 1 WHERE @email REGEXP '^[a-zA-Z0-9.!#$%&''*+/=?^_`{|}~-]+@[a-zA-Z0-9](?:[a-zA-Z0-9-]*[a-zA-Z0-9])?(?:\\.[a-zA-Z0-9](?:[a-zA-Z0-9-]*[a-zA-Z0-9])?)*\\.[a-zA-Z0-9](?:[a-zA-Z0-9-]*[a-zA-Z0-9])?(?:\\.[a-zA-Z0-9](?:[a-zA-Z0-9-]*[a-zA-Z0-9])?)*$'),0) = 1 THEN
      ''
    ELSE 'Invalid e-mail Address'
    endif;
  RETURN("RV")
END