my @tokens = ($line =~ m/([^,(]+(?:\([^)]*\))?)/g);