From ea668ea9c725e7225d86f37c83f9878c2be0ac33 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 3 Oct 2022 07:53:07 +0000
Subject: Create similar regexp as in task 2

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

diff --git a/challenge-185/perlboy1967/perl/ch-1.pl b/challenge-185/perlboy1967/perl/ch-1.pl
index fc0b032225..93cf7b0f37 100755
--- a/challenge-185/perlboy1967/perl/ch-1.pl
+++ b/challenge-185/perlboy1967/perl/ch-1.pl
@@ -23,8 +23,9 @@ use Test::More;
 
 
 sub macFormat ($) {
+  state $re = join '\.', map { '([0-9a-f]{2})' x 2 } (1 .. 3);
   return join(':',$1,$2,$3,$4,$5,$6)
-    if ($_[0] =~ /(?i)^([0-9a-f]{2})([0-9a-f]{2})\.([0-9a-f]{2})([0-9a-f]{2})\.([0-9a-f]{2})([0-9a-f]{2})$/);
+    if ($_[0] =~ /(?i)^$re$/o);
 }
 
 
-- 
cgit