use XML::Twig, it's all powerful man!!!!

use XML::Twig;
my $t = XML::Twig->new( 
    twig_roots => {
        Doc => \&mutilate_doc,
    },
); 

$t->parse(\*DATA);

sub mutilate_doc {
    my( $t, $doc)= @_;
    $doc->print;
    print "\n",'x'x69,"\n";
}

__END__
<Stream>
<Doc>
<foo>hey man</foo>
</Doc>
<Doc>
<bar>hey man, how's it goin'?</bar>
</Doc>
<Doc>
<baz>pretty right on.</baz>
</Doc>
</Stream>
[download]

Our very own mirod is the author of http://www.xmltwig.com/. He works for IEEE.

Besides XML::Twig, my favorite markup sgml-type language processing module is HTML::TokeParser::Simple :)

____________________________________________________
** The Third rule of perl club is a statement of fact: pod is sexy.