$perl -wle " print - -foo "
+foo

##</code><code>##

$perl -wle " print -+-foo "
+foo

$perl -wle " print +-+-foo "
+foo

$perl -wle " print -+-+-foo "
-foo

$perl -wle " print +-+-+-foo "
-foo

$perl -wle " print -+-+-+-foo "
+foo

$perl -wle " print +-+-+-+-foo "
+foo