@line = split(/(\.)/,$line);