my ($diagnosisString, $diagnosisNumber) = ($diagnosis =~ /^(.*)\s\[(\d*)\]/);