Help for this page
local $_ = 'aaaaabaaaaab'; 1 while / ... (??{ print $^N; '(?=)' }) /gx; print("\n");