From 32a8602525fd96a8260a3c907410cfdae3d5b7af Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 8 Feb 2021 10:06:36 +0000
Subject: Task 1 & 2

---
 challenge-099/perlboy1967/perl/ch-2.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/challenge-099/perlboy1967/perl/ch-2.pl b/challenge-099/perlboy1967/perl/ch-2.pl
index f8f8b572c1..6d0b4716eb 100755
--- a/challenge-099/perlboy1967/perl/ch-2.pl
+++ b/challenge-099/perlboy1967/perl/ch-2.pl
@@ -45,11 +45,13 @@ foreach my $cCount (1 .. $l) {
     my $re2 = sprintf("%s(?<s%d>.*?)", 
                   join('', map { sprintf("(?<s%d>.*?)(?<t%d>$_)", $i++, $i++) } @substrings),
                   $i);
-    
+
+    # Find all matching combinations    
     while ($S =~ m#$re2#g) {
       my %m = %+;
       my ($pre,$post) = ($`, $');
 
+      # Build the 'evidence' string
       my @s;
       foreach my $k (keys %+) {
         if ($k =~ m#^(.)(\d+)#) { 
-- 
cgit