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

##</code><code>##

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