Well, it helped me:

$ perl -MO=Deparse,-p -e 'not $year % 4 xor $year % 100 xor $year % 40
+0;'
(((not ($year % 4)) xor ($year % 100)) xor ($year % 400));
[download]