It's not just a stylistic problem.

>perl -E"$x='a'; for (1..2) { if ($x =~ /a/g) { say 1 } else { say 0 }
+ }"
1
0
[download]