This works for all the examples you gave, in B5 copied down

=IF(AND(CODE(MID(A5,1,1))>=65, CODE(MID(A5,1,1))<=90),MID(A5,1,SEARCH(".",A5)-1),MID(A5,SEARCH(".",A5)+1,SEARCH("^", SUBSTITUTE(A5,".","^",2))-SEARCH(".",A5)-1))