use XML::LibXML;
my $ReqId = '321150454';
my $doc = XML::LibXML->load_xml(string=>$xml);
my @nodes = $doc->findnodes("/*/EventInfo[\@RequestId='$ReqId']");
for my $node (@nodes) {
	print "### ", $node->getParentNode->toString, " ###\n\n" ;
}