From 28f612f47a1b95b37cdea25c1a2c081b63696f55 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 3 Oct 2022 08:02:40 +0000
Subject: Ignore case in regexp

---
 challenge-185/perlboy1967/perl/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-185/perlboy1967/perl/ch-2.pl b/challenge-185/perlboy1967/perl/ch-2.pl
index e972e05120..d5cca9c7ff 100755
--- a/challenge-185/perlboy1967/perl/ch-2.pl
+++ b/challenge-185/perlboy1967/perl/ch-2.pl
@@ -27,7 +27,7 @@ sub maskcode {
   state $re = '([^0-9a-z]*)([0-9a-z])' x 4;
   my @r;
   for (@_) {
-    push(@r,s/^$re/$1x$3x$5x$7x/or);
+    push(@r,s/(?i)^$re/$1x$3x$5x$7x/or);
   }
   @r;
 }
-- 
cgit