instr

 select 
substr('1001.2009.233.11.332.1',1,instr('1001.2009.233.11.332.1','.',1,1)-1) 
from dual;