#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use XML::Simple; my $res = " Football.png First article. "; my $res2 = " Second article. "; my $xml_simple = XML::Simple->new( KeepRoot => 1, KeyAttr => 1, ForceArray => 1 ); my $result = $xml_simple->XMLin($res); my $result2 = $xml_simple->XMLin($res2); print Dumper $result; print Dumper $result2; #### $VAR1 = { 'results' => [ { 'binding' => [ { 'name' => 'image_url', 'uri' => [ 'Football.png' ] }, { 'literal' => [ { 'content' => 'First article. ', 'xml:lang' => 'en' } ], 'name' => 'description' } ] } ] }; $VAR1 = { 'results' => [ { 'binding' => [ { 'literal' => [ { 'content' => 'Second article.', 'xml:lang' => 'en' } ], 'name' => 'description' } ] } ] };