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)