$ perl -MO=Deparse -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

##</code><code>##

$ 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