From 139250ef924eb1dd701e7da188927935fabb0726 Mon Sep 17 00:00:00 2001
From: Steven Wilson <steven1170@zoho.eu>
Date: Wed, 19 Jan 2022 19:35:02 +0000
Subject: add solution week 148 task 1 in perl

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

diff --git a/challenge-148/steven-wilson/perl/ch-01.pl b/challenge-148/steven-wilson/perl/ch-01.pl
new file mode 100644
index 0000000000..2132073e65
--- /dev/null
+++ b/challenge-148/steven-wilson/perl/ch-01.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+# Week 148 Task 1
+# Eban Numbers
+# Write a script to generate all Eban Numbers <= 100.
+# An Eban number is a number that has no letter ‘e’ in it
+# when the number is spelled in English (American or British).
+
+use strict;
+use warnings;
+use feature qw/ say /;
+use Lingua::EN::Numbers qw/ num2en /;
+
+my $max = 100;
+
+say "Eban Numbers <= $max:";
+for ( 1 .. $max ) {
+    ( num2en($_) =~ /e/ ) ? next : say $_;
+}
-- 
cgit