[89B] せっかく Perl なんだから

 for($t=today;$t++<d8"20131231";)
 
 for($t=today;$t++!~2014;)