You're just reading in one line. Try:

my @file = <DATA>;
my $d = XML::LibXML->new->parse_string(join "", @file);
[download]

or better yet

my $file = do { local $/; <DATA> };
my $d = XML::LibXML->new->parse_string($file);
[download]

Also, Data____ should be __DATA__