in reply to List directory(s)

while ( $filename =~ /(.+?\w+\/)/g ) {
    print $`, $1, $/;
}

[download]

In Section Seekers of Perl Wisdom