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