Solve Task #1 Long Year

2 files changed, 42 insertions, 2 deletions

diff --git a/challenge-137/bob-lied/README b/challenge-137/bob-lied/README
index bbaa2cbbcb..1383134251 100644
--- a/challenge-137/bob-lied/README
+++ b/challenge-137/bob-lied/README
@@ -1,3 +1,3 @@
-Solutions to weekly challenge 116 by Bob Lied.
+Solutions to weekly challenge 137 by Bob Lied
 
-https://perlweeklychallenge.org/blog/perl-weekly-challenge-116/
+https://perlweeklychallenge.org/blog/perl-weekly-challenge-137/
diff --git a/challenge-137/bob-lied/perl/ch-1.pl b/challenge-137/bob-lied/perl/ch-1.pl
new file mode 100644
index 0000000000..b49897d3ef
--- /dev/null
+++ b/challenge-137/bob-lied/perl/ch-1.pl
@@ -0,0 +1,40 @@
+#!/usr/bin/env perl
+# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
+#=============================================================================
+# ch-1.pl
+#=============================================================================
+# Copyright (c) 2021, Bob Lied
+#=============================================================================
+# Perl Weekly Challenge 137, Task 1: Long Year
+#
+# Write a script to find all the years between 1900 and 2100 which is a Long
+# Year.  A year is Long if it has 53 weeks.
+# 
+#=============================================================================
+
+use strict;
+use warnings;
+use v5.32;
+
+use experimental qw/ signatures /;
+no warnings "experimental::signatures";
+
+use DateTime;
+
+my @longYearList;
+
+for my $year ( 1900 .. 2100 )
+{
+    my $dt = DateTime->new(year => $year, month => 12, day => 31);
+    my ($year, $weeknum) = $dt->week();
+
+    push @longYearList, $year if $weeknum == 53;
+}
+
+# Output in comma-separated groups of five.
+my @row;
+while ( @longYearList )
+{
+    push @row, join(", ", splice(@longYearList, 0, 5) );
+}
+say join(",\n", @row);