perl -MDateTime -le'print for grep { $a=DateTime->new(year=>$_,month=>1,day=>26);$a->day_of_week == 1 and $a->is_leap_year } map { sprintf q[1%02d6], reverse 0..99 }'