$pages = Parse::MediaWikiDump::Pages->new("xml file");
while(defined($page = $pages->next)) 
{
   $text = $page->text;
   ## process text, which is quite messy
}