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