/^(?{$count = 0})[^c]*(?:c(?{$count ++})[^c]*)*/

##</code><code>##

    tr/c/c/

##</code><code>##

    $count = () = /$pat/g;

##</code><code>##

    $count = () = $str =~ /$RE{URI}{HTTP}/;