( /abc/def/ghi, /abc/def, /abc )

##</code><code>##

( /abc, /abc/def, /abc/def/ghi )

##</code><code>##

my $path = "/abc/def/ghi";
my @segments = ($path =~ m'^(/[^/]+  (/[^/]+  (/[^/]+)?  )?  )'x);