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