$ perl -MO=Deparse -e 'print -"asdf"'
print '-asdf';
-e syntax OK

##</code><code>##

$ perl -MO=Deparse -e 'print -"1asdf"'
print -1;
-e syntax OK

##</code><code>##

$ perl -MO=Deparse -e 'print -"-1asdf"'
print '+1asdf';

$ perl -MO=Deparse -e 'print -"+1asdf"'
print '-1asdf';
-e syntax OK