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