$ perl -MO=Deparse,-p -le"print - --$i"
BEGIN { $/ = "\n"; $\ = "\n"; }
print((-(--$i)));
-e syntax OK