#!/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>

##</code><code>##

]$ perl test
$VAR1 = {
          'INTRODUCTION' => 'Blah',
          'CVS' => '
$Id: File_Find.pl,v 1.1 2006-12-17 19:25:03 eric Exp $
',
          'ARTICLE' => '
foo bar baz
',
          'TITLE' => 'Foo',
          'AUTHOR' => 'Bar',
          'DATE' => '2006-12-10'
        };