use 5.010;
$_ = 'aaababaab';
while (/(a+)/pcg) {
    say pos($_), " ", $1;
}
__END__
3 aaa
5 a
8 aa