use XML::Simple qw(:strict);

my $xmlFile = 'textResults.xml';
my $xmlDocument = XMLin($xmlFile,
    ForceArray => 1,
    KeyAttr    => {},
  );


foreach my $httpSample (@{$xmlDocument->{httpSample}}) {
    print qq|<failure>$httpSample->{assertionResult}->[0]->{failure}->[0]</failure>\n|;
    print qq|<error>$httpSample->{assertionResult}->[0]->{error}->[0]</error>\n|;
    print qq|<failureMessage>$httpSample->{assertionResult}->[0]->{failureMessage}->[0]</failureMessage>\n\n|; 
}