% perl -le'print -"-aaa"'
+aaa
% perl -le'print -"+aaa"'
-aaa