declare
 str1 varchar2(4000);
 str0 varchar2(4000);
 x utl_http.html_pieces;
begin
 x := utl_http.request_pieces('http://www.cbr.ru/scripts/XML_daily.asp?date_req=01.06.2008', 100);
 for i in 1 .. x.count loop str0 := str0||x(i); end loop;
 select extractValue(value(xml),'/Valute/Name')
   into str1
   from table(xmlSequence(Extract(xmltype(str0), '/ValCurs/Valute'))) xml
  where extractValue(value(xml),'/Valute/NumCode')='578';
 dbms_output.put_line(str1);
exception when others then
 dbms_output.put_line(sqlerrm);
end;