# Given path: /a/b/c/d
# Given regex: ^/a/b/([^/]*)/([^\/]*)
# Output: /a/b/\033[1;31mc\033[0m/\033[1;31md\033[0m

##</code><code>##

foreach $regex_href (@rexes)
{
    %regex = %{$regex_href};
    if (@captures = ($path =~ /$regex{'regex'}/)) {
        # Do logic
    }
}