From 5435ed7a89c63f6ff797acd9fd3e19a3d0a1bb9e Mon Sep 17 00:00:00 2001
From: Steven Wilson <steven1170@zoho.eu>
Date: Mon, 1 Nov 2021 17:50:18 +0000
Subject: add solution week 137 task 1 in perl

---
 challenge-137/steven-wilson/perl/ch-1.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 challenge-137/steven-wilson/perl/ch-1.pl

diff --git a/challenge-137/steven-wilson/perl/ch-1.pl b/challenge-137/steven-wilson/perl/ch-1.pl
new file mode 100644
index 0000000000..3932c0e9dd
--- /dev/null
+++ b/challenge-137/steven-wilson/perl/ch-1.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+# Week 137 Task 1
+# Long Year
+
+use strict;
+use warnings;
+use feature qw/ say /;
+use DateTime;
+
+say join ",", grep {
+    DateTime->new( year => $_, month => 12, day => 31 )->week_number() == 53
+} ( 1900 .. 2100 );
-- 
cgit