Select Code to Download

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

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