#!/usr/bin/perl

#вводим весь текст в переменную
$txt = `cat 1.txt`;// linux
#$txt = `type 1.txt`;/dos-windows
$txt =~ s/\r|\n//;
%hash;
#print $txt;

#вносим в массив все слова
@words = split ('\s+', $txt);
#@words = $str =~ /(\w+\s+)/g;
print "words: $#words\n";



while( @words ) {
     # делаем пару
     my( $first, $second ) = splice @words, 0, 2;
     # создаем хэш пары и считаем встречаемость
     $hash{"$first $second"} += 1;
}
# сортируем по встречаемости
@keys_of_pairs = sort { $hash{$a} > $hash{$b} } keys %hash;
#print join("\n****** ", @keys_of_pairs);

# выводим на стандартный вывод
foreach ( @keys_of_pairs){
    print "$_: ",$hash{$_},"\n";
}

#!/usr/bin/perl

$txt = " в  без до из к  на  по о от перед при через с у за над об под про для а не и т.д g";
$txt =~ s/ в | без | до | из | к | на | по | о | от | перед | при | через | с | у | за | над | об | под | про | для | а | не | и | т.д /   /g;

print $txt;