Code for Validation of EMAIl ID

DATA:lr_regex    TYPE REF TO cl_abap_regex,
     lr_matcher  TYPE REF TO cl_abap_matcher.

DATA: lv_pat(500) TYPE c.


PARAMETERS: p_email TYPE string.

lv_pat = '\w+(\.\w+)*@(\w+\.)+(\w{2,4})' .

CREATE OBJECT lr_regex
  EXPORTING
    pattern     = lv_pat
    ignore_case = abap_true.

TRANSLATE p_email TO LOWER CASE.

lr_matcher = lr_regex->create_matcher( text =  p_email ).
IF lr_matcher->match( ) IS INITIAL.
  WRITE: 'Invalid EMAIL ID'.
ELSE.
  WRITE: 'Valid EMAIL ID'.
ENDIF.