use strict; use warnings; use XML::Rules; my $xml = <<XML; <config> <param name="SequenceNumber">66</param> <param name="T1">6</param> <param name="T3">6</param> <param name="T4">540</param> <param name="DownloadDate">11-28-07</param> </config> XML my $parser = XML::Rules->new( rules => [ param => sub {$_[1]->{name} => $_[1]->{_content}}, config => 'pass no content', ], ); my $tree = $parser->parse($xml); use Data::Dumper; print Dumper($tree); print "The download date was $tree->{DownloadDate}\n";