The XML::Parser "subs" Style
use XML::Parser;

$p = new XML::Parser Style => 'subs';

parsefile $p 'Beginning.xml';

sub p { print "@{$p->{Context}}\n"; }
sub characters { print "$_[1]"; }
=========================================
Text: The Old TestamentText:
Text:
Para: tstmt fm
Text: Source of original ASCII files unknown.
Text:
Para: tstmt fm
Text: SGML markup by Jon Bosak, 1992-1994.
Text:
Para: tstmt fm
Text: XML version by Jon Bosak, 1996-1998.
Text:
Para: tstmt fm
Text: This work may be freely distributed internationally.
Text:
Text:
Text:
Text: The First Book of Moses, Called GENESIS.
Text:
Text:
Para: tstmt book chapter v
Text: In the beginning God created the heaven and the earth.
Text:
Text:
Text:
Text:
Title Page Road Map Who Am I? Where To Get This Talk What is Markup? Three Kinds of Markup No Markup Procedural Markup Descriptive Markup On Markup Why Descriptive Markup is Good For You What is XML? This Isn't XML This is Well-Formed XML This is Valid XML Valid XML, but Better XML: History and Politics XML: Design Goals XML From 50,000 Feet Where to Find Out About XML XML Terminology 1 XML Terminology 2 How Does Unicode Work? The Unicode Spectrum Unicode for Programmers Unicode and XML Why Should You Use XML? Recently I Set Up a Linux Box Recently I Set up a Linux Box Recently I Set Up a Linux Box Recently I Set Up a Linux Box Recently I Set Up a Linux Box Recently I Set Up a Linux Box About Syntax Why is the Web So Slow? Today's Browser Architecture The Document Object Model The Next-Gen Browser Metadata Model + XML Syntax = RDF Who Loves XML? How Can You Use XML in Perl? The expat XML Processor The XML::Parser Package Some Test Data The XML::Parser The XML::Parser The XML::Parser The XML::Parser The XML::Parser Some Larger Test Data The The The The The The The The The And A Parting Question Match? Match? Match? Match? Match? Match?