use strict;
use warnings;
use XML::Twig;
use Data::Dump::Streamer;
my $twig = XML::Twig->new ();
$twig->parse (*DATA);
my $hash = $twig->simplify ();
Dump ($hash);
__DATA__
$Id: File_Find.pl,v 1.1 2006-12-17 19:25:03 eric Exp $
2006-12-10
Blah
Foo
Bar
...
foo bar baz
####
$HASH1 = {
ARTICLE
=> "\nfoo bar baz\n",
AUTHOR => 'Bar',
content
=> "\n\$Id: File_Find.pl,v 1.1 2006-12-17 19:25:03 eric Exp \$\n2006-12-10BlahFo".
"oBar\n...\n\nfoo bar baz\n",
CVS => "\n\$Id: File_Find.pl,v 1.1 2006-12-17 19:25:03 eric Exp \$\n",
DATE => '2006-12-10',
INTRODUCTION
=> 'Blah',
TITLE => 'Foo'
};