#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use v5.10.1;

my $откр_скобка     = qr/ [ \[  \(  \{  \<  \-  \= ]\s*   /x;
my $закр_скобка     = qr/ \s* [ \]  \)  \}  \>  \: \- \=] /x;
my $поле_TAB_поле   = qr/ ([^\t]+) /x;

my %язык;
my %ответов;

binmode STDOUT, ":utf8";

use File::Slurp;

for ( read_file "форум.txt", binmode => ":utf8", chomp => 1 ) {

    my ( $тема, $автор, $ответов, $просм, $дата) =  m/$поле_TAB_поле/g;

    фильтрую_базар:

    next if not ( $тема and  $автор and $ответов and $просм and $дата );

    next if substr($тема,0,3)    eq "Тем"
                        and
            substr($автор,0,3)   eq "Авт"
                        and
            substr($ответов,0,3) eq "Отв";

    next if substr($тема,0,10) eq "Важно: ЧаВ"
                        or
            substr($тема,0,10) eq "Важно: Как";

    разбор_полётов:

    given ( $тема ) {
        when ( /^ $откр_скобка? Perl   $закр_скобка? /ix ) { $язык{"Perl"  }++; $ответов{"Perl"  } += $ответов }
        when ( /^ $откр_скобка? Php    $закр_скобка? /ix ) { $язык{"Php"   }++; $ответов{"Php"   } += $ответов }
        when ( /^ $откр_скобка? Python $закр_скобка? /ix ) { $язык{"Python"}++; $ответов{"Python"} += $ответов }
        default                                            { $язык{"None"  }++; $ответов{"None"  } += $ответов }
    }

    print  "тема: $тема\nавтор: $автор\nответов: $ответов\nпросм: $просм\nдата: $дата\n";

}

use Data::Dumper;
$Data::Dumper::Varname = "УКАЗАНИЕ ЯЗЫКА";  warn Dumper \%язык;
$Data::Dumper::Varname = "ЧИСЛО ОТВЕТОВ";   warn Dumper \%ответов;

$УКАЗАНИЕ ЯЗЫКА1 = {
                                  'Php' => 416,
                                  'Python' => 58,
                                  'Perl' => 72,
                                  'None' => 1401
                                };
$ЧИСЛО ОТВЕТОВ1 = {
                                'Python' => 335,
                                'Php' => 3417,
                                'None' => 10175,
                                'Perl' => 347
                              };