my $regex               = qr /(?:$regexstr)/;

##</code><code>##

    foreach my $stringlength (100,1000,10000,100000)

##</code><code>##

    my $regex               = qr /(?:$regexstr)/o;

##</code><code>##

    my $regex               = qr /(?:$regexstr)/;