my @elems =
   $str =~ m{(?(?<=\A)|(?<=/))(.*?)(?=/|\z)}g;