Note that XML specification says that newlines in attributes should be
normalized away during parsing. And that's what
XML::LibXML does indeed:
#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };
use XML::LibXML;
my $dom = 'XML::LibXML'->load_xml(IO => *DATA{IO});
for my $property ($dom->findnodes('/set/cdsets/cdset/property')) {
say join ' -> ', @$property{qw{ name value }};
}
__DATA__
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<set name="01" id="test" catId="81679" >
<cdsets>
<cdset id="cdset" name="CD Compilation">
<property name="Own" value=""/>
<property name="Type" value="Record"/>
<property name="Text" value="Sample text
more sample text
more more same text]."/>
<property name="Unique" value="yes"/>
</cdset>
</cdsets>
</set>
($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,