in reply to Breaking file path into segments

use Path::Class;
print join "#", dir("abc/def/ghi")->components;

[download]


holli

You can lead your users to water, but alas, you cannot drown them.

In Section Seekers of Perl Wisdom