$ perl -MO=Deparse -e 'print (-2)**2'
print(-2) ** 2;
-e syntax OK