Select Code to Download

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]";
}