How to remove symbols from strings

Summary 

Here is a simple function to remove symbols from a string

CREATE OR REPLACE FUNCTION Remove_Symbols(p_text VARCHAR2)
      RETURN VARCHAR2 IS
      v_length NUMBER(10);
      v_clean   VARCHAR2 (2000);
   BEGIN
      SELECT LENGTH(p_text) INTO v_length FROM dual;
      v_clean := SUBSTR (
                    REPLACE (
                       TRANSLATE (
                          p_text
                         ,'~`!@#$%^&*()_-+={}|[]:";''<>?,./'
                         ,'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
                       )
                      ,'~'
                      ,NULL
                    )
                   ,1
                   ,NVL (v_length, LENGTH (p_text))
                 );
      RETURN (v_clean);
   END Remove_Symbols;
/

Example

SELECT Remove_Symbols('7$%$^%fhdfhdf<<<...hdgfgdf~()dfjdjfh') string FROM dual;