Select Code to Download

use strict;
use warnings;
...
   join qq{\0}, grep { m{^M$} .. m{^D$} } @dd;

print Data::Dumper->Dumpxs( [ \ @AoA ], [ qw{ *AoA } ] );

@AoA = (
         [
...
           'D'
         ]
       );