Hallo zusammen

ich muss gestehen, Perl ist leider nicht ganz meine Welt. Ich komme eigentlich von der Konkurenz-(PHP) Schiene.

Jetzt ist mir aber gerade ein Uralt-Skript in die Hände gefallen, das ich überarbeiten muss. Und da hab ich ein kleines Problem.

Folgende Situation:

In einem Eingabefeld wird aus einem Popup per JS ein Firmenname und die Firmen-ID in folgendem Syntax eingefügt:
Name (ID)

Im Skript wird dann die ID auf diese Weise extrahiert:
if ($DOCUMENT{companylink} =~ /\(([^\)]*)\)/) {
$ID_COMP_AIID = $1;
}

Diese Abfrage geht natürlich schief, sobald der Firmenname auch noch eine Klammer enthält.

Habt ihr eine Idee für mich, wie ich gezielt die letzte Klammer herausbekomme?

Ich wäre sehr dankbar für eure Hilfe!