From 90cfe9a48329303bc7103879b5ef25b02a1b1e0b Mon Sep 17 00:00:00 2001
From: LapVeesh <rabbiveesh@gmail.com>
Date: Sun, 21 Apr 2019 13:54:58 +0300
Subject: Corrected the case sensitivity

---
 challenge-004/veesh-goldman/perl5/ch-02.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-004/veesh-goldman/perl5/ch-02.pl b/challenge-004/veesh-goldman/perl5/ch-02.pl
index 9a5fdefee6..bac9712084 100755
--- a/challenge-004/veesh-goldman/perl5/ch-02.pl
+++ b/challenge-004/veesh-goldman/perl5/ch-02.pl
@@ -21,7 +21,7 @@ while (<>) {
   #copy the string to check for letters
   my $string = $_;
   #remove any letter in our list from the word
-  $string =~ s/$_// for split //, $list;
+  $string =~ s/$_//i for split //, $list;
   #if there's no word left, then print our original word
   CORE::say unless $string;
 }
-- 
cgit