Select Code to Download

my @splitted = split /(?:(?=a{2})(?<=a{2}))/, 'aaaaaaaaa';
print join " ", @splitted;
output recieved :aa a a a a a aa
output desired  :aa aa aa aa a

my $prim_to_test = ${ num_to_nat(2) }[0]; #get_wildmarks(); 'aa'

...
print "splitted: ", join " \N{U+68} ", @splitted, "r: $wildmarks";

output:splitted: 4 x aa h r: a