Except that the "advice" 22. is not applicable to Perl since the {}s are always obligatory for if()s. The if statement modifier is a completely different beast. Though code like this:

foo( 1, 2, s/sdfgdgI&^%#GG*&T$#/WRUGSkyug/)
if ($x == 5);{
  $gotcha->('dude');
 ...
}
[download]

could cause some misunderstanding ;-)