From 41ffff4cdd277812f256e75acdb5f62e3b0dc906 Mon Sep 17 00:00:00 2001
From: Steven Wilson <steven1170@zoho.eu>
Date: Wed, 19 Jan 2022 19:41:18 +0000
Subject: case insensitive

---
 challenge-148/steven-wilson/perl/ch-01.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-148/steven-wilson/perl/ch-01.pl b/challenge-148/steven-wilson/perl/ch-01.pl
index 2132073e65..28e7f90674 100644
--- a/challenge-148/steven-wilson/perl/ch-01.pl
+++ b/challenge-148/steven-wilson/perl/ch-01.pl
@@ -14,5 +14,5 @@ my $max = 100;
 
 say "Eban Numbers <= $max:";
 for ( 1 .. $max ) {
-    ( num2en($_) =~ /e/ ) ? next : say $_;
+    ( num2en($_) =~ /e/i ) ? next : say $_;
 }
-- 
cgit