>perl -MO=Deparse -e "$a if $b %% 5 == 0"
$a if $b % %5 == 0;
-e syntax OK