كود التاكد من ال E-mail

Declare
x varchar2(1);
    BEGIN x:='0';
Begin x:='1';
Select '1' into x from dual
where :E_MAIL like'%@%.%';
Exception
when no_data_found then 
x:='0';
end;

  
  if x = '1' then 
  null;
   else
   Message('ÇáÕíÛÉ ÇáÊí ÇÏÎáÊåÇ ÛíÑ ÕÍíÍÉ íÌÈ Çä ÊÍÊæí Úáì @ æ .Ýí emill');    
 Message('Invalid E-Mail Format ');
 Raise Form_Trigger_Failure;
   end if;
   
END;