Select Code to Download

<CVS>
$Id: File_Find.pl,v 1.1 2006-12-17 19:25:03 eric Exp $
...
<p>bar</p>
<p>baz</p>
</ARTICLE>

$VAR1 = \{
            'CVS' => '<The entire file and this is the only tag in the
+ hash with no other tags even making it in here>'};

   foreach my $file (@articles) {
     my $article = XMLin($file, NoAttr => 1);
     use Data::Dumper;
     print "<pre>", Dumper(\$article), "</pre>";
   }