use strict;
use warnings;

use Test::More tests => 1;

my $in = 'aaaaaaaaa';
my $want = 'aa aa aa aa a';

my $have = join ' ', ($in =~ /a{1,2}/g);
is $have, $want;