The "Stream" Style: Assignment 4

Also, lose the useless trailing newline

use XML::Parser;
my $p = new XML::Parser Style => 'stream';
parsefile $p $ARGV[0];

sub Text
{
    chop if ($p->{Context}[-1] eq "v");
    print;
}
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?