I would have thought your first step would have been to write a unit test (see Test::More and friends) specifying exactly what you want to parse from things like "'Uncouth' about sums it up.", "It's the old story.", etc.