$ perl -le 'print -aaa'
-aaa
$ perl -le 'print -+-aaa'
+aaa