#!/usr/bin/perl -w use strict; use XML::Simple; undef $/; my $ref = XMLin( , forcearray => 1, keyattr => { wrapper => "name" }); my $wrapName = "testName 1.0.3"; print "$ref->{wrapper}->{$wrapName}->{script}\n"; print "$ref->{wrapper}->{$wrapName}->{envVar}->[0]->{value}\n"; __DATA__