[97B] Perl

turugina

 use Date::Simple':all';
 for($t=today;$t++<d8"20131231";)
 {print"$t\n"if$t->day_of_week*$t->day==65}