if ( my @matches = $text =~ /\( \s*(\w+)\s* (?:,\s*(\w+)\s*)* \)/ ) {
  print "Funde: " . @matches;  # Anzahl Treffer
}