$ 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