顔に見える計算式

use strict;
use warnings;
my $i = 0;
#       |||||||||||||
my $j = -- $i - $i --;
#        \         /


print "$j\n";

途中で心折れた。