Corrected the case sensitivity

1 files changed, 1 insertions, 1 deletions

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