From c1fae11c2d6ec788e84f95fde8c4eb65ea24f808 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 26 Sep 2022 14:09:36 +0000
Subject: Small tweak (silly oversight)

Thanks James Curtis-Smith
---
 challenge-184/perlboy1967/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-184/perlboy1967/perl/ch-1.pl b/challenge-184/perlboy1967/perl/ch-1.pl
index a7b3462ea9..220d323dcf 100755
--- a/challenge-184/perlboy1967/perl/ch-1.pl
+++ b/challenge-184/perlboy1967/perl/ch-1.pl
@@ -27,7 +27,7 @@ use Test::Deep qw(cmp_deeply);
 
 sub seqNr (@) {
   my ($i,@s) = (0,@_);
-  map { s/^..(.*)/sprintf("%02d$1",$i++)/re; } @s;
+  map { s/^../sprintf('%02d',$i++)/re; } @s;
 }
 
 
-- 
cgit