I may not be understanding your question correctly (getting a list of directories), but what's wrong with this?

#!/usr/bin/perl -w
use strict;

my $dirname = ".";
opendir DIR, "$dirname" or die "couldn't open '$dirname': $!";
my @files = grep { -d $_ } readdir DIR;
close DIR;
print join "\n", @files;
[download]

I'm especially uncertain of what you're trying to accomplish with all your regexps. Could you be more specific about your intent?

Update:

Cleaned up a bit for the strict -w police.