Help for this page
$ perl -le 'print (-2)**2' -2 $
$ perl -MO=Deparse -e 'print (-2)**2' print(-2) ** 2; -e syntax OK
$ perl -le 'print((-2)**2)' 4