#!/usr/bin/perl
 
$Text = "Хотелось бы конкретных примеров.\n".
        "Типа таких \"вот человек решал эту задачу (описание задачи) на СИ полгода.".
        "Я сделал её на С++ на неделю\"";
 
map {$M{$_}++} split(/[\s,\.=\(\)\"+-]+/,$Text);
map {print ${$_}[0]." : ".${$_}[1]."\n"} sort {
${$b}[1]<=>${$a}[1] || ${$a}[0] cmp ${$b}[0]
} map {[$_,$M{$_}]} keys %M;

IyEvdXNyL2Jpbi9wZXJsCgokVGV4dCA9ICLQpdC+0YLQtdC70L7RgdGMINCx0Ysg0LrQvtC90LrRgNC10YLQvdGL0YUg0L/RgNC40LzQtdGA0L7Qsi5cbiIuCiAgICAgICAgItCi0LjQv9CwINGC0LDQutC40YUgXCLQstC+0YIg0YfQtdC70L7QstC10Log0YDQtdGI0LDQuyDRjdGC0YMg0LfQsNC00LDRh9GDICjQvtC/0LjRgdCw0L3QuNC1INC30LDQtNCw0YfQuCkg0L3QsCDQodCYINC/0L7Qu9Cz0L7QtNCwLiIuCiAgICAgICAgItCvINGB0LTQtdC70LDQuyDQtdGRINC90LAg0KErKyDQvdCwINC90LXQtNC10LvRjlwiIjsKCm1hcCB7JE17JF99Kyt9IHNwbGl0KC9bXHMsXC49XChcKVwiKy1dKy8sJFRleHQpOwptYXAge3ByaW50ICR7JF99WzBdLiIgOiAiLiR7JF99WzFdLiJcbiJ9IHNvcnQgewokeyRifVsxXTw9PiR7JGF9WzFdIHx8ICR7JGF9WzBdIGNtcCAkeyRifVswXQp9IG1hcCB7WyRfLCRNeyRffV19IGtleXMgJU07