my $parser = HTML::TokeParser::Simple->new(\$data);

while (my $div = $parser->get_tag('div','/div')) {
	my $id = $div -> get_attr('id');
	next unless (defined $id and $id =~ /reply/);
	# tutaj kursor jest wewnatrz taga z odpowiedzia
	# wiec iteruje glebiej
		while ( my $inner_div = $parser -> get_tag('div','/div')) {
		my $inner_class = $inner_div -> get_attr('class');
		next unless (defined $inner_class and $inner_class eq 'body');
		#~ # print "div.$id > div.$inner_class \n";
		my $text = $parser -> get_text;
		print "$id: '$text' \n";
	#~ # print $id ." ";
	}
}