For looking for all the files with a given extension, I used:

 my @uwavs = grep {/^(.*?$SrcExt)$/ && -f $_ } readdir $dirhandle;
[download]

To exclude dot files, I'd probably use something like /^([^\.]+.*)$/ for my regex. Obviously in my case, I also only wanted files, so you might not need the "-f $_" part.

As usual, there's always a bunch of ways to do things.