johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -E '
my $str   = q{aaaaaaaaa};
my @parts = unpack q{(a2)*}, $str;
say qq{@parts};'
aa aa aa aa a