use re ();
for (1..10) {
    my ($pat, $flags) = re::regexp_pattern($rex);
    $rex = ($flags eq "u" or $flags eq "") ? qr{$pat.} : qr{$rex.};
}