D:\>perl -MO=Deparse -e "print -'ahoj' => 1"
print '-ahoj', 1;
-e syntax OK

D:\>perl -MO=Deparse -e "print -ahoj => 1"
print -'ahoj', 1;
-e syntax OK