Foo

$Id: File_Find.pl,v 1.1 2006-12-17 19:25:03 eric Exp $ This That Desc: Test file 2006-12-10 Blah, blah, blah Foo Bar ...

foo, test

bar

baz

##

$VAR1 = \{
            'CVS' => ''};

##

##

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