sub wanted {
    return unless -f;
    /(?<!^)[.]([^.]+)$/;
    ++$stats{$File::Find::dir}{$1 || ''};
}