[perl #77570] No protection against huge capture variables ($1, $2...) index

[via RT]

# New Ticket Created by  Paweł Pabian 
# Please include the string:  [perl #77570]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=77570 >


$ perl6 -e 'my $code = "\$" ~ 1 x 1024; eval $code;'
error:imcc:syntax error, unexpected IDENTIFIER ('Inf')
        in file 'EVAL_10' line 180480091

I'm not sure if produced $code is valid STD syntax, but if not then error 
message should be more awesome.