create or replace procedure show_xml (p_xml in xmltype)
is
   l_str long;
begin
   l_str := p_xml.extract('/*').getstringval();
   loop
      exit when l_str is null;
      dbms_output.put_line (substr (l_str, 1, instr (l_str, chr(10)) - 1));
      l_str := substr (l_str, instr (l_str, chr(10)) + 1);
   end loop;
end show_xml;
/