Select Code to Download

...
    $str =~ s/$re(?(?{++$cnt > $times})\A)/qq["$repl"]/gee;
...

limited_re("111111111",qr/(1)/,'${1}5',2);