perl6 – 如何匹配Perl 6正则表达式中相同数量的不同原子？

我想匹配与bs完全相同的数量.所以,以下

my $input = 'aaabbbb';
$input ~~ m:ex/ ... /;

应该产生：

aaabbb
aabb
ab

UPD：以下变体不起作用,可能是因为：@smls’s answer中提到的：ex bug(但更可能是因为我犯了一些错误？)：

> my $input = "aaabbbb";
> .put for $input ~~ m:ex/ (a) * (b) * <?{ +$0 == +$1 }> /;
Nil
> .put for $input ~~ m:ex/ (a) + (b) + <?{+$0 == +$1}> /;
Nil

这个,有：ov和？,有效：

> my $input = "aaabbbb";
> .put for $input ~~ m:ov/ (a)+ (b)+? <?{+$0 == +$1}> /;
aaabbb
aabb
ab

UPD2：以下解决方案适用于：ex,但我必须在没有<？...>的情况下执行此操作.断言.

> $input = 'aaabbbb'
> $input ~~ m:ex/ (a) + (b) + { put $/ if +$0 == +$1 } /;
aaabbb
aabb
ab