#!/usr/bin/perl
use strict;
use warnings;

my $data = join "", <DATA>;   # slurp DATA-section

while( $data =~ /<property name="(.*?)"\s+value="(.*?)"/gs ) {
  print qq|$1 -> "$2"\n|;
}


__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>


##</code><code>##

Own -> ""
Type -> "Record"
Text -> "Sample text

more sample text
more more same text]."
Unique -> "yes"