my @tokens = split(/\./, $word);