In perl you can use if as a statement modifier... Therefore, this is perfectly valid code:

#!/usr/bin/perl -wT
use strict;

for my $var (0..9) {
  print "$var is even\n" if $var%2 == 0;  # using if as a statement mo
+difier
}
[download]

For more on use strict, please see strict.pm.

-Blake