#!/usr/bin/perl

use XML::Simple;

my $xml = do { local $/; <DATA> };

my $hash = XMLin( $xml );

use Data::Dumper; print Dumper( $hash );


__END__
<?xml version="1.0"?>
<root>
<CVS>
$Id: File_Find.pl,v 1.1 2006-12-17 19:25:03 eric Exp $
</CVS>
<DATE>2006-12-10</DATE>
<INTRODUCTION>Blah</INTRODUCTION>
<TITLE>Foo</TITLE>
<AUTHOR>Bar</AUTHOR>
<ARTICLE>
foo bar baz
</ARTICLE>
</root>