Ok ! Yes, you are certain, with \w+ is very better.

perl -e 'while(<*>){if(-f && /\.(\w+)$/){$e{$1}++}}print "$_ -> $e{$_}
+\n" for keys %e'
[download]

Thanks;