pt1 <- proc.time()
alice.raw <- readLines("alice30.txt")
alice.vec <-  unlist(strsplit(alice.raw, 
  split = "[[:blank:]]|[[:punct:]]",  
  extended = TRUE, perl = TRUE))
alice.vec <- alice.vec[alice.vec != ""]
pt2 <- proc.time() pt2 - pt1
length(alice.vec)