Paste code

SELECT Z.*,
		          regexp_substr(Z.CLEANED,&#039;[9][0-9]{8}&#039;) telefono
		   FROM(
           SELECT RUC_PROV, TELEF_CONTACTO, 
		          CASE WHEN TELEF_CONTACTO LIKE &#039;&#039; THEN TELEF_CONTACTO
				       ELSE REGEXP_REPLACE(STRTOK(STRTOK(TELEF_CONTACTO,&#039;*&#039;,1), &#039;/&#039;, 1), &#039;[-+#(),* a-zA-Z]&#039;, &#039;&#039;) END CLEANED
		   FROM E_DW_VIEWS.V_MST_VPC_BASES_ECOSIS_BC 
		   WHERE RUC_PROV IN (&#039;RPC 997 681 215&#039;,&#039;20527597651&#039;,&#039;20110353538&#039;,&#039;20510037562&#039;,&#039;20602067158&#039;, &#039;20513646608&#039;, &#039;20533294970&#039;, &#039;20101293387&#039;, &#039;20537900891&#039;, &#039;20600612922&#039;, &#039;20507141791&#039;, &#039;20492916472&#039;)
		   AND TELEF_CONTACTO  NOT LIKE &#039;&#039; 
           ) Z