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