$ perl -MO=Deparse,-p -e 'not $year % 4 xor $year % 100 xor $year % 400;'
(((not ($year % 4)) xor ($year % 100)) xor ($year % 400));