Select Code to Download

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

++$stats{$1 || ''};