@fields = split /\s/;
@fields = split /\(/, $fields[$#fields];
@fields = split /,/, $fields[1];