Check in to WWW::Mechanize. It automates much of what you're doing to get to the content you need to parse.