[NoCD]

код, что в посту выше компактней, но этот как вариант с substring

lev9= '04.01.2009.05.01.2009.345.56543444.333.1.2.333'
_root["per"+0]=""
ind=0
ind2=0
ind3=0
//------------------------------------------------------------------------------
for(i=0;i<=_root["lev"+9].length;++i){
 
text_out=_root["lev"+9].substring(i-1,i)
if(text_out=="."){
     text_out2=_root["lev"+9].substring(i-ind2,i-1)
	_root["per"+ind]=text_out2
	 trace("Число "+ind3+"= "+_root["per"+ind])
     ind2=0
	 ++ind3
	 }
 
if(i==_root["lev"+9].length)
{    text_out2=_root["lev"+9].substring(i-ind2,i)
    _root["per"+ind]=text_out2
	trace("Число "+ind3+"= "+_root["per"+ind])
	ind2=0
	++ind3
	}
	++ind
	++ind2
}//for