$ perl -MFile::Spec::Functions=splitdir -E '@p = splitdir( "/x/y/z/a/b/c/d/e.f" );say join( qq{\n}, @p[-3,-2,-1] )'
c
d
e.f