Help for this page
>perl -wMstrict -MData::Dump -le "my $s = 'AAA BBB CCC DDD AAA BBB'; ... ] ["AAA", "BBB", "AAA", "BBB"]
>perl -wMstrict -MData::Dump -le "use 5.010; ... dd \@matches " ["AAA", "BBB", "AAA", "BBB"]