うるう年判定 - Perl

 $y =~ /00$|$/;
 return $`%4 == 0;

http://d.hatena.ne.jp/shinichiro_h/20080316#1205594522