# Injection For Lymphangiography[75999]
$orderName =~ /^(.*)\[(\d*)\]/;
my $orderNameString = $1;
	    
# Lentigo maligna melanoma [172.9]
$diagnosis =~ /^(.*)\s\[(\d*)\]/;
my $diagnosisString = $1;