$ perl -MO=Deparse,-p -e '$a->X*$b->X+$a->Y*$b->Y+$a->Z*$b->Z'
((($a->X * $b->X) + ($a->Y * $b->Y)) + ($a->Z * $b->Z));
-e syntax OK