library(tidyverse)
library(readxl)

file_name <- "australian_marriage_law_postal_survey_2017_-_participation_final.xls"

areas <-
  read_excel(
      path = file_name,
      range = "Table 5!A8:A650"),
      col_names = "area") %>%
  filter(!grepl("Division|Australia$", area)) %>%
  mutate(area = gsub("\\([a-z]\\)","",area)) %>%
  drop_na()