@character=split /\.*/;
  while (@character){