my @matches;
push @matches, $1 while $xml =~ /$regex/g;