D:\>perl -MO=Deparse,-p -e " print -$two ** $four + $one; "
print(((-($two ** $four)) + $one));
-e syntax OK

D:\>