From 50b08241503a29dfc16335429344cce741bd6642 Mon Sep 17 00:00:00 2001
From: Luis Mochan <mochan@fis.unam.mx>
Date: Tue, 25 Oct 2022 07:35:25 -0500
Subject: Fix message

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

diff --git a/challenge-188/wlmb/perl/ch-1.pl b/challenge-188/wlmb/perl/ch-1.pl
index 469f5b67b1..2ec087eec5 100755
--- a/challenge-188/wlmb/perl/ch-1.pl
+++ b/challenge-188/wlmb/perl/ch-1.pl
@@ -18,4 +18,4 @@ while(my $z=$iter->next){
     ++$count if ($x+$y)%$divisor==0;
 }
 say "The number of pairs from the list ",
-    join(", ", @ARGV), " divisible by $divisor is $count";
+    join(", ", @ARGV), " with sum divisible by $divisor is $count";
-- 
cgit