I'm not sure this is the best example of a perl script to cut your teeth on, because of its use of Rexgreps to accomplish its purposes. It is messy, but that's by need of its task -- content scraping. A messy process if there's no XML file to process.