$ perl -MO=Deparse -e 'print $q -> start_html(-title => "The Time", -bgcolor => "#ffffff") '
print $q->start_html(-'title', 'The Time', -'bgcolor', '#ffffff');
-e syntax OK

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

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

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

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