#!/usr/bin/perl -w
use strict;

my %extensions;

while (<>) {
	chomp;
	if (/\.([^.]+)$/) {
		$extensions{$1}++;
	}
}
for my $k (keys %extensions) {
	print "$k\t", $extensions{$k}, "\n";
}