#!/usr/bin/perl -n
# count-files-r: count the number of files under each folder

use strict;
use warnings;

our %count;

chomp(my $file = $_);

for (my $i = 0; $i < length($file); $i++) {
	if (substr($file, $i, 1) eq "/") {
		my $dir = substr($file, 0, $i);
		$count{$dir}++;
	}
}

END {
	foreach my $dir (sort {$count{$b} <=> $count{$a}} keys %count) {
		print "$count{$dir}\t$dir\n";
	}
}