Of course, you'll be wanting to test that before using it.
Code:
  1  select substr('http://tahiti.oracle.com', 0,
  2  (instr('http://tahiti.oracle.com' , '/', 1)-1))
  3* from dual
SQL> /

SUBST
-----
http: