Perl more concise than python for date logic.