use File::Spec;

foreach my $str ( File::Spec->splitdir( "/a///b/" ) )
{
    print "- \"$str\"\n";
}

##</code><code>##

- ""
- "a"
- ""
- ""
- "b"
- ""