How to get the file name from a full path

CREATE OR REPLACE FUNCTION get_file_name (p_file IN VARCHAR2) RETURN varchar2
IS
v_file_name VARCHAR2(50);
BEGIN
/*
|| This Function returns a varchar2 string of the file name including the suffix.
|| Written by: Daniel Coe
|| Date: 10/09/2002
*/
IF instr(p_file,’/’) > 0 THEN — Unix

v_file_name := substr(p_file,(instr(p_file,’/’,-1,1)+1),length(p_file));

ELSIF instr(p_file,’\’) > 0 THEN — Windows

v_file_name := substr(p_file,(instr(p_file,’\’,-1,1)+1),length(p_file));

END IF;

RETURN v_file_name;
END;
/