Some perl code that is intended to parse books from gutenberg