The -p option to B::Deparse can be helpful when precedence questions arise:

$ perl -MO=Deparse,-p -e '$a if $b %% 5 == 0'
((($b % %5) == 0) and $a);
-e syntax OK
[download]