'for i=0 to ubound(line)-1reg.pattern=' 'set temp=reg.Execute(line(i))if temp.count=0 and left(line(i),1)='*' then'Segregate nameresponse.write '