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