You can parse the files in the directory with a structure like this, instead of using opendir/readdir/closedir:

my @files = ();
foreach (<*$count*>) {
    s/\.[^.]*$//;
    push @files, $_;
}
[download]

Not sure what you needed to do with the files, but you might do that inside the loop as well. I'm not sure exactly how <*> works internally, but it's definitly better than doing a system() call that relies on ls, awk, and grep (even if those are fine tools). I find it cool, yet strangely disturbing, that you can interpolate the variable $count into the <...> directory listing.

-Ted