1 common year = 365 days = (365 days) / (7 days/week) = 52.143 weeks = 52 weeks + 1 day

##</code><code>##

1 leap year = 366 days = (366 days) / (7 days/week) = 52.286 weeks = 52 weeks + 2 days

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Date::Manip;
use Data::Dumper;

my ($start, $end) = qw(2017-01-01 2017-12-31);

# y:m:w:d:h:m:s
my @weeks = ParseRecur('0:0:1::0:0:0', $start, $start, $end);

print Dumper \@weeks;

=sample
$VAR1 = [
          '2017010100:00:00',
          '2017010800:00:00',
          '2017011500:00:00',
          '2017012200:00:00',
.
.
.
          '2017121700:00:00',
          '2017122400:00:00',
          '2017123100:00:00' # Not a week (remaining days)
        ];
=cut

pop @weeks;

say "Number of weeks: " . scalar @weeks;

print Dumper \@weeks;

=output
$VAR1 = [
          '2017010100:00:00',
          '2017010800:00:00',
          '2017011500:00:00',
          '2017012200:00:00',
.
.
.
          '2017121000:00:00',
          '2017121700:00:00',
          '2017122400:00:00' # Last week on 2017
        ];
=cut