Text::Original - find original, non-quoted text in a message - View it on GitHub