if ($DOCUMENT{companylink} =~ /.*\(([^\)]*)\)/) {
    $ID_COMP_AIID = $1;
}