Select Code to Download

for (@MainArray) {
    @$_ = grep { ! /[a-z]/ } @$_;
}

#!/usr/bin/env perl

...
name
is
Jack

$ pm_file_chars_to_AoA_2.pl
$VAR1 = [
...
            'J'
          ]
        ];