my($before, $after) = split(/\./, $word);