##
[id://11155739]++
##
##
...
my $vote = 0;
if($decoded =~ /\[([^\]]+?)\]([+-]{2})/) {
($id, $type) = ($1, $2);
if($type eq '++') {
$vote++;
} elsif($type eq '--') {
$vote--;
}
}
...