I was thinking about that this week, because I wanted (for no good reason), things like:

$n+++;        # increment, then do that again (add 2)
$n++++;       # increment, then again, and once more (add 3)
$n++++++++++; # increment N-1 times, just because I can

--$n++; # use the value that's one less, then restore it
++$n--; # same thing, other way

$n++-;   # increment, but not really cause this is a JAPH
$n++-+;  # I changed my mind, really do it this time
$n++-+-; # boss says change it back 

$n+-     # can I decide later, or, pick one at random

$n**     # no exponent, so square $n
$n***    # cube it, and so on

$n***/   # square it, but cube it first and go back one
$n//     # 1
$n///    # 1/$n
$n///**  # $n
[download]

Surely Perl can be even more write-only if we just applied ourselves.