Con perl, utilizando la función split pasandole la cadena con la ruta y haciendo que el delimitador sea / te devolverá un array con todos los elementos que se encuentren entre barras. Luego solo tienes que ver la longitud del array, que te dice el numero de elementos, y coger los del final.
Salu2!