Remove Domain from a string

Example

initcap( replace (regexp_substr( :APP_USER, '[^@]*') , '.', ' ') )