Re: regex gotcha moving from 5.8.8 to 5.30.0?

Can you please provide a sample input? I generated one using

my $str = "";
$str .= "\nbegfoo bar ( xyz ) ;\nendfoo\nqux 123 ;"
    while 100E+06 > length $str;
[download]

but the whole script including the data creation takes only 5 seconds.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]