s { \A /*  (  (?: [^/]+ /+ )*?  [^/]*  )  /* \z }
  { length $1 ? "/$1/" : '/' }ex;