my $message = "\n +_ ABC1_\n2 3 4";
if ($message =~ m/([^A-Z0-9]*)([A-Z0-9]*)([^A-Z0-9]*)([A-Z0-9]*)(.|\n)*/i) {
	print "[$2][$4]";
}