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