$r->route(qr[^/(?[^/]+)/(?[^/]+)/(?[^/]+)(?:/(?.*))$])->to(...) # (ok, an x modifier with some gratuitous whitespace might be wise here..)