#!/usr/bin/perl
while (<>){
	while (/\w+/) {
		$pal{$&}++;
		$_=$';
		}
	}
for (sort keys %pal){
	print "$_   $pal{$_}\n";
	}

