Select Code to Download

use strict;
use warnings;
...
my @array = split m{$rxSplit}, $str;

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

@array = (
           'A',
...
           'Y',
           'Z'
         );