###########################################################

#! /usr/bin/perl
use warnings;
use strict;

my $word = qr/\b[a-zA-Z\x{131}ü\x{11F}\x{15F}çö\x{130}\x{15E}Ö\x{11E}Ü]+\b/;
my %mywordcount;

while (<STDIN>) {
    my $line = $_;
    while ($line =~ /($word)/g){
        $mywordcount{(lc $1)}++;
    }
}

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

#sorting alphabetically

print "$_\t\t", (length($_) > 7) ? '' : "\t", $mywordcount{$_}, "\n" for sort keys %mywordcount;





##</code><code>##

while ($line =~ /($word)/g){

##</code><code>##

while ($line =~ /($word('$word)?)/g){

##</code><code>##

my $word = qr/(?<!\p{Alpha})[a-zA-Z\x{131}ü\x{11F}\x{15F}çö\x{130}\x{15E}Ö\x{11E}Ü]+(?!\p{Alpha})/;