Select Code to Download

my @array = (A0-7:123:C, B8-15:456:D);
...
   }
}

my @array = (A0-7:123:C, B8-15:456:D);
my $check = A4:123:C;
...
my $find = join(':', ((split(':',$check))[1,2]));
my @found = ($test =~ m/\b\w\d+\-\d+:$find\b/g);