my $_=$a;  say while s|[^/]+/*$||;

__END__
/aaaa/bbbb/cccc/dddd/
/aaaa/bbbb/cccc/
/aaaa/bbbb/
/aaaa/
/