Select Code to Download

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

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

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