Normalize string

DATA LIST  / VAR  1-20 (A).
BEGIN DATA
Alpha.
  aLPha.
alpHA .
END DATA .
COMPUTE #I=INDEX(VAR,'.').
DO IF #I > 0.
COMPUTE VAR=CONCAT(SUBSTR(VAR,1,#I-1),SUBSTR(VAR,#I+1) ).
END IF.
COMPUTE VAR=UPCASE(LTRIM(VAR)).
LIST.