[mod://Acme::Bleach]++ # Perfect source code obfuscation [https://bing.com]-- [id://11155739]-- # Load of rubish, doesn't work the way i want it to #### ... my $vote = 0; my ($id, $type); if($decoded =~ /\[([^\]]+?)\]([+-]{2})/) { ($id, $type) = ($1, $2); if($type eq '++') { $vote++; } elsif($type eq '--') { $vote--; } } if(!$vote) { # Not a vote contained in the message, we are done here return 1; } my $reason = ''; if($decoded =~ /^.+?\#(.*)$/) { $reason = $1; $reason =~ s/^\ +//g; $reason =~ s/\ +$//g; } ...