create or replace 
 function domain_from_emailaddress 
 (
 address in varchar2
 )
 return varchar2
 is
 domain varchar2(255);
 begin
 domain := substr(address,instr(address,'@'),length(address)-instr(address,'@')+1);
 return domain;
 end;