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