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

##</code><code>##

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