add solution week 137 task 1 in perl

1 files changed, 12 insertions, 0 deletions

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 );