use warnings;
use utf8;

use WWW::Mechanize;
use HTTP::Cookies;
#use WWW::Mechanize::Query;

 my $weeked = WWW::Mechanize->new();
 $weeked->add_header( Cookie => "_culture=ru" );

while(<>){
 /.*, (\d+),.*/;
 my $id = $1;
 chomp;
# print $id."\n";


 $weeked->get("https://timetable.spbu.ru/WeekEducatorEvents/$id");
# print $weeked->content;
# print $mech->response->as_string();

 my @classes = $weeked->content =~ /.*\d\d.\d\d.\d\d.\d\d.*/g;
 print $_.",".$#classes."\n";




}