#! /usr/bin/perl
while (<STDIN>) {
	s/(\d+)?([a-zA-Z&#305;ü&#287;&#351;çö&#304;&#350;Ö&#286;Ü]+\d+)+|(\d+[a-zA-Z&#305;ü&#287;&#351;çö&#304;&#350;Ö&#286;Ü]+)//og;
	$MyString = $MyString . $_;
}

while ($MyString =~ /([a-zA-Z&#305;ü&#287;&#351;çö&#304;&#350;Ö&#286;Ü]+)/og) {
    $temp = $1;
    $temp =~ tr/[A-Z]/[a-z]/;
    $MyWordCount{$temp}++;
}

print "Word\t\t\tFrequency\n";
print "======\t\t\t===========\n";

#sorting alphabetically
foreach $key (sort keys %MyWordCount) { 
    if (length($key) > 7) {
	print "$key\t\t$MyWordCount{$key}\n";
    }
    else {
	print "$key\t\t\t$MyWordCount{$key}\n";
    }
}