#!/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;