#!/bin/perl

use XML::SAX::Pipeline;
use XML::Filter::BufferText;

my $filter = XML::Filter::BufferText->new();
my $machine = XML::SAX::Pipeline->new($filter);

$machine->parse_file(\*STDIN);