# parse the message (executed within eval so parsing errors are non-fatal) eval { $parsed_xml = XMLin( $message, forcearray => 1, keyattr => [] ); }; # if parsing errors were encountered, write the appropriate message to the log if ($@) { &stop_it($ERROR, $XMLERROR, "Parsing error encountered - $@", $log_file); } $queue_name = $parsed_xml->{descriptor}->{inputQueue}; &log_it($INFO, "inputQueue is $queue_name", $log_file); print Dumper($parsed_xml); #### 'descriptor' => [ { 'uniqueId' => [ 'X\'414d51204d534f4c55303220202020203ed6d4ec00023332\'' ], 'resubCounter' => [ '0' ], 'failureTimestamp' => [ '2004-01-13 15:00:00.000' ], 'errorCode' => [ '1234' ], 'messageType' => [ 'TEST.MESSAGE' ], 'inputQueue' => [ 'BLACKHOLE' ], 'destinationSystem' => [ 'NOWHERE' ], 'dataFormat' => [ 'XML' ], 'portfolioCode' => [ 'NONE' ], 'errorDescription' => [ 'Blackhole message' ], 'sourceSystem' => [ 'TEST' ] } ], 'body' => [ { 'contents' => [ 'Some data' ] } ]