[perl #131847] [BUG] Anon state var doesn't work in regex (Regression)

[via RT]

# New Ticket Created by  Joshua 
# Please include the string:  [perl #131847]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=131847 >


An array of tokens used to be able to match like this: 

my token foo { 'foo' };
my token bar { 'bar' };
my token baz { 'baz' };
my @tokens = /<foo>/, /<bar>/, /<baz>/;
say 'foo bar baz' ~~ / ^ <{ @tokens[$++] }> ** { +@tokens } % <.ws> $ /;

OUTPUT: ｢foo bar baz｣

This no longer work since commit 7a456ff80183a6e26dc91d811d992112c68ddb6d

You can simulate how it should work by providing your own state variable

state $i = 0;
say 'foo bar baz' ~~ / ^ <{ @tokens[$i++] }> ** { +@tokens } % <.ws> $ /;